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

Question

Информатика

Федюша

4 января, 15:58

Написать программу с помощью цикла 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.