Программу для вычисления суммы целых чисел пока не будет выведен нуль

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