Составить программу вычисления n! (паскаль)

Задание:

Составить программу вычисления n! (паскаль)

Решение:

Uses crt; var a,i,pr: longint; beginreadln (a); pr: =1; for i: =2 to a dopr: =pr*i; writeln (pr); end.

Знаете другой ответ?

Отправить свой ответ