|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.12.2022, 14:13 | #1 |
Новичок
Джуниор
Регистрация: 26.12.2022
Сообщений: 1
|
paskal
//9) В городском зоопарке содержатся животные N (1 ≤ N ≤ 1000) разных видов.
//Для участия в международной выставке зоопарк должен представить трех животных //различных видов. Требуется написать программу, которая вычислит число способов //выбрать трех животных для участия в выставке. //Например, если в зоопарке два медведя, тигр, лев и пингвин, то есть семь способов выбрать трех животных: //1. первый медведь, тигр и лев; //2. первый медведь, тигр и пингвин; //3. первый медведь, лев и пингвин; //4. второй медведь, тигр и лев; //5. второй медведь, тигр и пингвин; //6. второй медведь, лев и пингвин; //7. тигр, лев и пингвин. Переделать с использованием перебора const n = 4; var i,j,k,m,l,p: integer; s: real; a: array[1..n] of integer; begin s:= 0; a[1]:=2; //можно задать любое количество животных a[2]:=1; a[3]:=1; a[4]:=1; writeln(a[1],' ',a[2],' ',a[3], ' ' ,a[4]); for i:=1 to (n-2) do begin for j:=(i+1) to (n) do begin for k:=(j+1) to (n) do begin s+=1; writeln(i,' ',j,' ',k); m:=1;l:=1;p:=1; while m<a[i] do begin writeln(i,'(',m,') ',j,' ',k); s+=1; m+=1; end; while l<a[j] do begin writeln(i,' ',j,'(',l,') ',k); s+=1; l+=1; end; while p<a[k] do begin writeln(i,' ',j,' ',k,'(',p,')'); s+=1; p+=1; end; end; end; end; writeln('Ответ: ', s, ' способов'); end. |
26.12.2022, 14:26 | #2 |
Форумчанин
Регистрация: 31.05.2009
Сообщений: 786
|
|
26.12.2022, 14:47 | #3 |
Пользователь
Регистрация: 04.07.2012
Сообщений: 32
|
пишите biger18@yandex.ru
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
(Paskal) | Kastiel11 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 02.06.2013 21:57 |
Paskal | qscwdv | Помощь студентам | 0 | 08.02.2012 11:05 |
paskal abc,turbo paskal | andrei57 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 08.09.2011 05:33 |
Free Paskal и Turbo Paskal | Polly~Sunbeam | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 18.04.2011 16:00 |