Спомо_щью функции вычисления n! вычислить a = (k!+m!+1)/n!

@Анатолий))) · Регистрация: 10.04.2011

Author24 — интернет-сервис помощи студентам

С помощью функции вычисления n! вычислить a = (k!+m!+1)/n!, где k, m, n задаются пользователем, причем каждое из них не превосходит 7.

@Small Lamer · 26.05.2011, 11:19

Pascal

var k,m,n:longint;
FUNCTION fact(x:longint):longint;
begin
  if x=1 then fact:=1 else fact:=fact(x-1)*x;
end;
begin
  readln(K,M,N);
    writeln((fact(k)+fact(m)+1)/fact(n):0:2);
end.

@Анатолий))) · 26.05.2011, 14:50 **[ТС]**

спс огромное , а как тут поставить ограничение ,можно одновременно на все вводимые пременные , или на каждое по отдельности ставить ?

@Анатолий))) 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 35
		1
	Спомо_щью функции вычисления n! вычислить a = (k!+m!+1)/n! 26.05.2011, 00:15. Показов 1131. Ответов 2 Метки нет (Все метки) С помощью функции вычисления n! вычислить a = (k!+m!+1)/n!, где k, m, n задаются пользователем, причем каждое из них не превосходит 7. 0

@Анатолий))) 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 35
	26.05.2011, 14:50 [ТС]	3
	спс огромное , а как тут поставить ограничение ,можно одновременно на все вводимые пременные , или на каждое по отдельности ставить ? 0

Опции темы

Спомо_щью функции вычисления n! вычислить a = (k!+m!+1)/n!

Решение