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