Написать программу с помощью цикла while которая производит суммирование любых десяти чисел. Буду очень благодарен!

Question

Информатика

Юдифь

19 июля, 17:12

Написать программу с помощью цикла while которая производит суммирование любых десяти чисел. Буду очень благодарен!

+2

Ответы (1)

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

Венцеслав · Answer 1

Var i:integer; n, sum:real;

Begin

Write ('Введите 10 чисел: ') ;

while (i10) do begin

readln (n) ;

sum:=sum+n;

i:=i+1;

end;

writeln ('Сумма этих чисел - ', sum) ;

end.