Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
annaarzama
25.04.2020 01:03 •
Информатика
, написать программу в QBasic для рисования всей картинки, используя дуги, овалы, линии, круги и прочее заранее.
В QBASIC
👇
Увидеть ответ
Открыть все ответы
Ответ:
rootme
25.04.2020
1)
#include <iostream>
using namespace std;
int main() {
int s = 0;
for(int i = 1; i < 101; cout << i << ' ', s+=i, i+=2);
cout << endl << s << endl;
}
2)
#include <iostream>
using namespace std;
int main() {
int n, k = 0;
cin >> n;
for(int i = 0; i < n; i++) {
int number;
cin >> number;
if(number % 2 == 0) k++;
else k--;
}
if(k > 0) cout << "Четных" << endl;
else if (k < 0) cout << "Нечетных" << endl;
else cout << "Одинаково" << endl;
}
3)
#include <iostream>
using namespace std;
int main() {
for(int i = 20; i < 51; i++)
if(i % 3 == 0 && i % 5 != 0) cout << i << endl;
}
4)
#include <iostream>
using namespace std;
int main() {
for(int i = 35; i < 88; i++)
if(i % 7 == 1 || i & 7 == 2 || i % 7 == 5) cout << i << endl;
}
4,6
(27 оценок)
Ответ:
Маргольц
25.04.2020
Var
N, s, i: Integer;
s1: real;
begin
readln(N); {общий ввод для всех задач}
if N < 0 then
writeln('Задача 1. N=', 0)
else writeln('Задача 1. N=', N + 4);
s := 0;
for i := 1 to n do
s := s + i;
writeln('Задача 7. 1+2+3+…+N=', s);
write('Задача 9. Последовательность от N до 1 = ');
for i := n downto 1 do
write(i, ' ');
writeln();
s1 := 0;
for i := 1 to n do
s1 := s1 + i / 10;
writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
write('Задача 13. Последовательность квадратов от 1 до N = ');
for i := 1 to n do
write(i * i, ' ');
writeln();
write('Задача 14. Последовательность первых N нечетных чисел = ');
for i := 1 to n do
write(2 * i - 1, ' ');
writeln();
if N > 0 then
writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
s := 0;
for i := 1 to n do
if n mod i = 0 then
s := s + i;
writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.
4,4
(94 оценок)
Это интересно:
К
Компьютеры-и-электроника
05.06.2020
Как обновить приложение на Android: Инструкция от профессионалов...
С
Семейная-жизнь
05.11.2021
Как увеличить амниотическую жидкость...
З
Здоровье
29.07.2021
Как правильно наложить шину на перелом плечевой кости: подробный руководство...
С
Стиль-и-уход-за-собой
23.06.2021
10 лучших способов улучшить состояние кожи...
Ф
Финансы-и-бизнес
24.07.2022
11 проверенных способов, как дополнительно заработать в свободное время...
Т
Транспорт
14.07.2022
Как быстро и легко отчистить жевательную резинку от сидения...
К
Компьютеры-и-электроника
26.04.2022
Как выйти из Instagram: легко, быстро и навсегда...
Д
Дом-и-сад
31.07.2022
Как покрасить ткань чаем: возможности и результаты...
С
Стиль-и-уход-за-собой
07.09.2020
Как подчеркнуть изгибы своего тела: советы от профессионалов...
Д
Дом-и-сад
27.07.2022
Как выращивать мяту: советы от опытных садоводов...
Новые ответы от MOGZ: Информатика
marianna123123
03.04.2023
Информатика 6 клас скрочно...
Анют2006
28.11.2021
написать программку в Паскаль для решения 11 уравнения...
alexeytutkevicp09cxb
24.11.2020
как можно быстрее и хотя бы одно из двух...
ibama
27.07.2022
решить пример и перевести его на язык Паскаль: y=√x2+2020×cos(2x)-3 где x равен 2,34...
Angelina12323
15.04.2020
Какое значение будет=count(D9:E10; F7:F11)...
Ksu2k17
13.06.2021
сделать номер 1 (с решением)...
jsjdnnx
03.02.2020
На 1 чаше весов находятся Саша и Даша .Известно что, Даша весит на 3 кг больше чем Саша, а на другой чаше Кристина и суши.Вес суши- 62 кг.Для того чтобы они уравновесились нужно чтобы...
vadimkvitko20
13.11.2021
3. Ячейки A1:A5 содержат значения 12, 4, 45, 12 и 3. Чему будет равно значении следующих функций а) =МИН(А1:А5) = b) =СЗНАЧ(A1:А5) =...
FvitalikA
27.07.2022
Дан массив, состоящий из n элементов в диапазоне [-30;36]. Найти разность между произведение элементов, кратных 6 и суммой элементов оканчивающихся на...
palechov01
27.02.2023
Сделайте конспект по представленному материалу векторная графика...
MOGZ ответил
Казакский язык.СОР сөйлемдерді окы.берилген суретке катысты сөйлемдерді белгиле...
перевести код из паскаля в питон, и главное чтобы он работал (чтобы в массиве из...
это птичка на таскает в пустой сучок перышек, синца, пуха, прутиков, выстроит себе...
2. Склади вираз та обчисли його. Знайди: 1/2від 42360 1/8від 46512 З/7від 6300 ...
КОМУ НЕ ЛЕНЬ И НЕ БАБА ВАМ СЮДА ДАМ 100 ДОЛЛАРОВ ЗА РЕШЕНИЕ...
На менше плече важеля, що має довжину 5 см, діє сила 300 Н. Визначте довжину більшого...
Постройте треугольник по стороне АВ, углу А и биссектрисе BD....
Запитання. На круговій діаграмі зображено співідношення учнів класу, що відвідують...
Потпишитись на мой ютуб канал (OvEn ArTuR)...
Заполнить таблицу решите ...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
#include <iostream>
using namespace std;
int main() {
int s = 0;
for(int i = 1; i < 101; cout << i << ' ', s+=i, i+=2);
cout << endl << s << endl;
}
2)
#include <iostream>
using namespace std;
int main() {
int n, k = 0;
cin >> n;
for(int i = 0; i < n; i++) {
int number;
cin >> number;
if(number % 2 == 0) k++;
else k--;
}
if(k > 0) cout << "Четных" << endl;
else if (k < 0) cout << "Нечетных" << endl;
else cout << "Одинаково" << endl;
}
3)
#include <iostream>
using namespace std;
int main() {
for(int i = 20; i < 51; i++)
if(i % 3 == 0 && i % 5 != 0) cout << i << endl;
}
4)
#include <iostream>
using namespace std;
int main() {
for(int i = 35; i < 88; i++)
if(i % 7 == 1 || i & 7 == 2 || i % 7 == 5) cout << i << endl;
}