Question

Составьте алгоритм и напишите программу вычисления произведения целых чисел натурального ряда N=10.

Answer 1

Ответ: 1410065408

var a,x,i:integer;

begin

x:=1;

i:=10;

for a:=1 to i  do

x:=x*i;

writeln(x);

end.