Задача: Напечатать и подсчитать сумму всех четных чисел от 10 до 30.

Question

Информатика

Изосим

15 апреля, 19:36

Задача: Напечатать и подсчитать сумму всех четных чисел от 10 до 30.

+3

Ответы (2)

Знаете ответ на вопрос?

Коня · Answer 1

10,12.14,16,18,20,22,24,26,28,30:общее количество 11

Евдокия · Answer 2

var

sum, i: integer;

begin

write ('Чётные числа от 10 до 30: ') ;

for i: = 10 to 30 do

if i mod 2 = 0 then

begin

write (i:4) ;

sum:=sum+i;

end;

writeln;

writeln ('Их сумма = ', sum) ;

end.