Анисиевич
6 год назад
Составить программу которая для любых пяти чисел находит сумму
ОТВЕТЫ
Kaoszinen
Aug 2, 2019
Var
i: integer;
s, n: real;
begin
for i := 1 to 5 do
begin
readln(n);
s := s + n;
end;
writeln(s);
end.
i: integer;
s, n: real;
begin
for i := 1 to 5 do
begin
readln(n);
s := s + n;
end;
writeln(s);
end.
5
Смежные вопросы:
