Ответы
Ответ дал:
0
Var
a,i,n:integer
begin
Readln(a);
for i:=a to 1 do
n:=n+I;
writeln(n);
end.
a,i,n:integer
begin
Readln(a);
for i:=a to 1 do
n:=n+I;
writeln(n);
end.
Ответ дал:
0
спасибо
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад