Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите решить задачу с подпрограммами
Определить значение выражения n!+m! / (n-m)! , используя подпрограмму для вычисления факториала.
1 | Автор: STRYKER | 2012-02-15, 21:03   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2012-02-16, 00:55   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-02-16, 00:55   |  Репутация: [ + 211 ]
большое спасибо
3 | Автор: STRYKER | 2012-02-16, 09:07   |  Репутация: [ + 0 ]
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ). Спасибо

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-02-16, 17:08   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: