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

matvirucom80 matvirucom80    2   19.09.2019 16:10    0

Ответы
ZhEnYa9911 ZhEnYa9911  08.10.2020 02:33
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика