Составить программу которая вводит и суммирует целые числа a, пока a не равно 999....

Question

Составить программу которая вводит и суммирует целые числа a, пока a не равно 999. Последний результат суммирования выводится на экран. Даю 50 баллов!​

Comments

Числа вводятся с клавиатуры или выбираются случайным образом?

Answer 1

program raf105;

var a,b:integer;

begin

writeln('Вводите целые числа по очереди');

while a

begin

 readln(b);

 a:= a+b;

end;

writeln('Последний результат суммирования: ',a);

end.

Написано на языке PascalABC.NET