Напишите программу алгоритм который по введенному числу N(1_<__<10) вычислит и напечатает значение N!=1*2*3*...*N
Program test;
Var
n, i,a:integer;
Begin
Write( введите число: );
readln(n);
for i:=1 to n do a:=a*n;
write(n,!= ,a);
End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
