Дано целое число n(n>10).Составить программу,которая вычисляет произведение произведение чисел от 10 до n

1

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

  • Kitsu
  • почетный грамотей
2012-11-27T20:23:35+04:00

var i,n,x:integer;
begin
x:=1;
readln(n);
for i:=10 to n do x:=x*i;
writeln(x);
end.