Составьте программу для нахождения суммы всех четных чисел 1-40
nenezkivazak
3
20.08.2019 19:30
1
Другие вопросы по теме Информатика
angelocheck15
05.04.2021 18:49
Ира21fu
08.09.2019 23:40
viktoriafedorip0a2an
08.09.2019 23:40
Соня13377
08.09.2019 23:40
Tanya20042017
04.02.2022 11:37
sviridovaliza19
04.02.2022 11:22
лрпку6у6у6о
08.09.2020 00:45
Kit1gvore
23.05.2019 14:50
ildanmini086
23.05.2019 14:50
Популярные вопросы
- 7-тапсырма. Сұрақтарға жауап бер....
3 - 12. Какой оборот со словом вместо надо обособить? ОВместо Шляпы на ходу...
1 - 1. If I ( not eat) breakfast, I (get) hungry. 2. If it (rain), we (not go)...
2 - Прочитай текст. Представь, что ты отправил сообщение другу об увиденном...
2 - 6 снсып казак тілі 197 бет 2 тапсырма...
3 - Для функції f(x)=2x+3 укажіть первісну, графік якої проходить через точку...
3 - Довжина прямокутника доривнюе 20 см.60% від неї...
3 - Скиньте перевод стиха Жастықтың оты, қайдасың? на русский...
3 - Прочитайте речення: Духмяного, зелено-чорного, з ніжними нотками натуральних...
2 - Выделите приставки и суффиксы Сначал.., снов.., дочерн.., влев.., вправ..,...
2
var i,sum: integer;
begin
sum:=0;
for i:=1 to 40 do if(i mod 2=0) then sum:=sum+i;
writeln(sum);
end.