Ответы
Ответ дал:
0
var i,s,n: Integer;
begin
readln(n);
for i := 1 to n do begin
s := s + i;
end;
writeln(s);
end.
begin
readln(n);
for i := 1 to n do begin
s := s + i;
end;
writeln(s);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад