Абакум
5 год назад
Найдите разность чисел от -5 до 28(Паскаль)
ОТВЕТЫ
Аврелий
Aug 11, 2019
Var
i, s: integer;
begin
s := 0;
for i := -5 to 28 do
s := s - i;
writeln(s);
end.
i, s: integer;
begin
s := 0;
for i := -5 to 28 do
s := s - i;
writeln(s);
end.
113
