Меню сайта

Задача №2

Вычислить значение факториала —n! —cиспользованием функции


Program func_2-

Uses crt-

Var n,x:integer-

function fact(a:integer):integer-

var i,p:integer-

begin

p:=1-

for i:=1 to a do p:=p*I-

fact:=p-

end-

begin

write(‘введите -n:’)-

readln(n)-

x:=fact(n)-

writeln(n,’!=’,x)-

readln-

end.

Категория: Подпрограммы | Дата: 31.12.12

Меню раздела
Блок