Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.08.2018 01:10
- Информатика
- remove_red_eye 17875
- thumb_up 8
Ответы и объяснения 1
c: real;
procedure factorial(a:integer; var w:integer);
var i:integer;
begin
w:=1;
for i:=2 to a do w:=w*i;
end;
begin
writeln('Введите целые числа m и n (m>n):');
write('m = ');
readln(m);
write('n = ');
readln(n);
factorial(m,u);
factorial(m-n,r);
factorial(n,o);
//число сочетаний из m объектов по n
c:=u/(r*o);
writeln('C = ',c:5:0);
end.
Пример:
Введите целые числа m и n (m>n):
m = 4
n = 2
C = 6
- 01.01.1970 00:00
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.