Написать программу вычисления факториала числа N.
Написать программу вычисления факториала числа N.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
program n_1; var k,f,n:integer; begin k:=1; f:=1; writeln('Вычисление факториала введенного числа'); write('введите число»'); readln(n); while (k<=n) do begin f:=f*k; k:=k+1; end; writeln('Результат=',f); end. |
©Решение предоставил Дрюк Иван
Будем благодарны, если вы поделитесь данной записью со своими друзьями в социальных сетях, оставите отзыв и посмотрите другие материалы на нашем сайте.