Написать программу, которая вводит целые числа и складывает их, пока не будет введено число 0. вывести сумму чисел, введённых до 0.

Question

Информатика

Нюрася

6 сентября, 11:30

Написать программу, которая вводит целые числа и складывает их, пока не будет введено число 0. вывести сумму чисел, введённых до 0.

+1

Ответы (1)

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

Флоренция · Answer 1

var

sum, num: integer;

begin

repeat

readln (num) ;

if (num = 0) then

break;

write (sum, ' + ', num, ' = ') ;

sum : = sum + num;

writeln (sum) ;

until (false) ;

end.