составить программу подсчета суммы четных чисел от 10 до 50

Question

Информатика

Игоряша

31 марта, 14:30

составить программу подсчета суммы четных чисел от 10 до 50

+4

Ответы (1)

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

Мирослав · Answer 1

Program gg;

Var i, s: integer;

Begin

For i:=10 to 50 do

if i mod 2=0 then s:=s+i;

Writeln ('Сумма всех четных чисел от 10 до 50 равна ', s)

end.