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

а если через while?

спасибо огромное

program ABC;var i,N,S:integer;BeginRead(N);S:=1;For i:=1 to N doBeginS:=S*i;End;Writeln(S);End.Подставляешь n - это будет твое число под факториалом.Программа выводит ответ.