Ответ №1
Var
i, s: integer;
begin
s := 0;
for i := -5 to 28 do
s := s - i;
writeln(s);
end.
Ответ №1
Var
i, s: integer;
begin
s := 0;
for i := -5 to 28 do
s := s - i;
writeln(s);
end.
Знаете ответ?