Ответы и объяснения

andrfk
andrfk

Var
a,i,n:integer
begin
Readln(a);
for i:=a to 1 do
n:=n+I;
writeln(n);
end.

0.0
0 оценок
0 оценок
Оцени!
Оцени!
andrfk
После типа перременных ";" забыл
спасибо