Предмет: Информатика,
автор: lertllea
составьте программу на паскале, где надо найти сумму всех чётных чисел от 20 до 40
Ответы
Автор ответа:
1
Ответ:
var i,s:integer;
begin
s:=0;
for i:=20 to 40 do
if i mod 2=0 then s:=s+i;
write(s)
end.
Автор ответа:
1
На языке PascalAВC.NET в одну строчку:
## Range(20,40,2).Sum.Print // результат 330
Интересные вопросы
Предмет: Литература,
автор: firstik1
Предмет: Химия,
автор: луна40
Предмет: Математика,
автор: shalyakinal
Предмет: Литература,
автор: katellll