Напише программу для вычисления n!=1*2*3*…*n-1*n; n<=10 c помощию цикла while

Вопрос школьника по предмету Информатика

Напише программу для вычисления n!=1*2*3*…*n-1*n; n<=10 c помощию цикла while

Ответ учителя по предмету Информатика

program ABC;

var i,N,S:integer;

Begin

Read(N);

S:=1;

For i:=1 to N do

Begin

S:=S*i;

End;

Writeln(S);

End.

Подставляешь n — это будет твое число под факториалом.

Программа выводит ответ.