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

Question

Информатика

Евдокия

14 июля, 06:16

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

+3

Ответы (1)

Знаете ответ на вопрос?

Дука · Answer 1

Думаю, на Паскале пойдет.

var summa, k: longint;

begin

summa : = 0;

read (k) ; {Считываем первое число}

while k 0 do begin

summa : = summa + k;

read (k) ;

end;

write (summa) ;

end.