Программу для вычисления суммы целых чисел пока не будет выведен нуль
Программу для вычисления суммы целых чисел пока не будет выведен нуль
Ответ(ы) на вопрос:
Думаю, на Паскале пойдет.
var summa, k: longint;
begin
summa := 0;
read(k); {Считываем первое число}
while k <> 0 do begin
summa := summa + k;
read(k);
end;
write(summa);
end.
Не нашли ответ?
Похожие вопросы