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

  • Kitsu
  • почетный грамотей
2012-10-24T10:29:55+04:00

var i,s:integer;

Begin

s:=1;

for i:=2 to 10 do s:=s*i;

writeln(s);

end.