|
помогите решить задачу с подпрограммами
|
|
|
Определить значение выражения n!+m! / (n-m)! , используя подпрограмму для вычисления факториала.
|
|
|
|
function fact(s:integer):integer;
var
i,n:integer;
begin
read(n);s:=1;
for i:=1 to n do
s:=s*i;
fact:=s;
end;
var
n,m,q:integer;
begin
writeln(fact(n)+fact(m)/fact(n-m):1:1);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
