Написать программу, используя оператор while, для нахождения суммы любых 10 чисел вводимых с клавиатуры Pascal ABC

Question

Информатика

Кандида

15 февраля, 02:54

Написать программу, используя оператор while, для нахождения суммы любых 10 чисел вводимых с клавиатуры Pascal ABC

+4

Ответы (1)

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

Николайка · Answer 1

Program n1;

var sum, a: real;

i: integer;

begin

i:=0;

sum:=0;

while i<10 do

begin

readln (a) ;

sum:=sum+a;

i:=i+1;

end;

write (sum) ;

end.