Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Typhoon01
11.02.2020 03:08 •
Информатика
составьте программу вычисления суммы ченых чисел в диапазоне от 1 до 100. 2) составьте программу вычисления произведения чисел от 1 до 10. 3) составьте программу, которая находит сумму квадратов чисел от 1 до 10.
Показать ответ
Ответ:
ргшгр
20.06.2020 22:54
Program a1;
var x1, sum:integer;
begin
sum:=0;
for x1:=1 to 100 do
if x1 mod 2=0 then sum:=sum+x1;
writeln(sum);
end.
program factorial;
var x1,fak:integer;
begin
fak:=1;
for x1:=1 to 10 do fak:=fak*x1;
writeln(fak);
end.
program a3;
var x1,sum:integer;
begin
sum:=0;
for x1:=1 to 10 do sum:=sum+sqr(x1);
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ZhenyaKan11
09.05.2020 04:37
До іть розв язати задачі з інформатики 2 варіанти ів...
revenko816mailru
22.09.2022 12:56
В каких случаях алгоритм работает правильно закончите фразу алгоритм работает правильно, если...
kocheryan86p08jni
22.10.2021 17:40
Составьте программу вычисления суммы кратных чисел 7 в диапазоне от 1 до 100...
9570896123
18.08.2020 11:33
Які існують проблеми кодування національних алфавітів...
WinnerGDWot027
12.03.2020 20:30
Дана блок-схема. Известно, что =77;=−13. ответ: =...
lera2934
20.09.2020 17:20
Проверьте, делится ли выбранное число на 5, на 11 или 13 нужно сделать в pascal abc...
DoVInterER
08.12.2020 00:02
АВС-равнобедренный треугольник с основанием АС. Вне треугольника соответственно на лучах АВ и СВ лежат точки К и Е так,что ВК=ВЕ,точка О- середина основания. Докажите...
verka000
08.12.2020 00:02
очень очень Загальна характеристика збірки З вершин і низин ( якою темою об єднані твори, окремо назвати декілька творів)....
shutilkaha
08.12.2020 00:02
Три прикметнка,якими можна схаректеризувати власника чарівної крамниці...
daria383ver
16.08.2022 04:50
БУДЬ ЛАСКА ДО ТЬ! ФОТО ПРИКРІПЛЕННО...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x1, sum:integer;
begin
sum:=0;
for x1:=1 to 100 do
if x1 mod 2=0 then sum:=sum+x1;
writeln(sum);
end.
program factorial;
var x1,fak:integer;
begin
fak:=1;
for x1:=1 to 10 do fak:=fak*x1;
writeln(fak);
end.
program a3;
var x1,sum:integer;
begin
sum:=0;
for x1:=1 to 10 do sum:=sum+sqr(x1);
writeln(sum);
end.