задача на цикл while . Напишите программу, которая считывает со стандартного ввода целые числа, по одному числу в строке, и после первого введенного нуля выводит сумму полученных на вход чисел.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var sum:integer;
begin
sum:=0;
while true do
begin
var b:= Readinteger;
if b = 0 then break
else
sum:=sum+b;
end;
Write('Summa: ', sum);
end.