Пока пользователь вводит с клавиатуры чётные числа, суммируйте их. Результат выведите на экран

Pascol через цикл while

Question

Анатолий

10 октября, 16:11

+1

Ответы (1)

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

Лавра · Answer 1

Var

num, sum: integer;

begin

sum : = 0;

num : = 0;

while num mod 2 = 0 do

begin

sum : = sum + num;

read (num) ;

end;

writeln (sum) ;

end.

Пока пользователь вводит с клавиатуры чётные числа, суммируйте их. Результат выведите на экранPascol через цикл while