Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Sanisle
14.05.2022 13:24 •
Информатика
составьте программу вычисления суммы ченых чисел в диапазоне от 1 до 100. 2) составьте программу вычисления произведения чисел от 1 до 10. 3) составьте программу, которая находит сумму квадратов чисел от 1 до 10.
Показать ответ
Ответ:
Sgff3
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 оценок)
Популярные вопросы: Информатика
cako2004
13.04.2023 21:40
Используя лог.операции,запишите высказывание ,которое является истинным при выполнении следующих условий : каждое из чисел х,у,z не равно нулю. 0:...
foxylol1
21.04.2022 01:46
Проанализируйте структуры трех вариантов ис- пользования вложенных условий. 1. Сравните отличия друг от друга конструкций проверки вложенных условий. 2. Какой вариант...
мозк2
07.10.2020 17:09
Только арифметические операторыбез if else while range div итд...
072215
07.01.2022 20:51
Для кодирования некоторой последовательности, состоящей из букв А, Б, В, Г и Д, решили использовать неравномерный двоичный код, позволяющий однозначно декодировать...
caca2386p00xcz
02.12.2021 20:18
Если число оканчивается цифрой 0 то оно делится на 5 известно что данное число не делится на 5 следовательно...
kdortskaya55
02.12.2021 20:18
Составить программу в паскале 10 абитуриентов сдали экзамены (максимальная сумма за три экзамена 300). посчитать проходной , если известно, что он составляет 80%...
VictoriaOrlova32455
17.03.2021 20:11
Ms word как установить абзац в середине текста...
рузик83
17.03.2021 20:11
Дано натурально число. определить две максимальные цифры числа. паскаль...
awdrg12345
17.03.2021 20:11
Какое число является троичным эквивалентом десятичного числа 1011...
dron2003
19.12.2020 18:46
Дан массив с количеством элементов n. сжать выбросив каждый четный элемент....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.