Задача: Напечатать и подсчитать сумму всех четных чисел от 10 до 30.
Задача: Напечатать и подсчитать сумму всех четных чисел от 10 до 30.
Гость
Ответ(ы) на вопрос:
Гость10,12.14,16,18,20,22,24,26,28,30:общее количество 11
Гость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.
Не нашли ответ?
Похожие вопросы