Напишите программу алгоритм который по введенному числу N (1_<__<10) вычислит и напечатает значение N!=123 * ... * N

Question

Самсон

13 мая, 20:23

+3

Ответы (1)

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

Альбина · Answer 1

Program test;

Var

n, i, a:integer;

Begin

Write ('введите число: ') ;

readln (n) ;

for i:=1 to n do a:=a*n;

write (n,'! = ', a) ;

End.

Напишите программу алгоритм который по введенному числу N (1_<__<10) вычислит и напечатает значение N!=1*2*3 * ... * N