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

Pascol через цикл while

Question

Филиппина

24 февраля, 14:39

+4

Ответы (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