Ответ(ы) на вопрос:
Гостьvar
s: Int64;
i, n: byte;
begin
readln(n);
for i := 1 to n do
s += i;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы
ГостьГость