Вычислить сумму N целых чисел, вводимых с клавиатуры
Program P1;
const n=5;
var x,i,s:real;
begin
s:=0;
for i:=1 to n do
begin
readln(x);
s:=s+x;
end;
writeln(’Сумма равна ’,s);
end.

Ellionora1227    3   24.05.2020 01:27    1