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

Question

Информатика

Таиса

4 августа, 12:07

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

+5

Ответы (2)

Знаете ответ на вопрос?

Артамоша · Answer 1

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 - это будет твое число под факториалом.

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

Парфентий · Answer 2

var n, f, i:integer;

Begin

write ('n = ') ;

readln (n) ;

f:=1; i:=1;

while i
begin

i:=i+1;

f:=f*i;

end;

Writeln (n,'! = ', f) ;

End.

Пример:

n = 5

5! = 120

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

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