|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.12.2022, 14:23 | #1 |
Новичок
Джуниор
Регистрация: 26.12.2022
Сообщений: 1
|
paskal
Можете пожалуйста решить эту задачу
В городском зоопарке содержатся животные N (1 ≤ N ≤ 1000) разных видов. Для участия в международной выставке зоопарк должен представить трех животных различных видов. Требуется написать программу, которая вычислит число способов выбрать трех животных для участия в выставке. Например, если в зоопарке два медведя, тигр, лев и пингвин, то есть семь способов выбрать трех животных: 1. первый медведь, тигр и лев; 2. первый медведь, тигр и пингвин; 3. первый медведь, лев и пингвин; 4. второй медведь, тигр и лев; 5. второй медведь, тигр и пингвин; 6. второй медведь, лев и пингвин; 7. тигр, лев и пингвин. |
26.12.2022, 14:24 | #2 |
Новичок
Джуниор
Регистрация: 26.12.2022
Сообщений: 1
|
нужно исправить программу, написать код с помощью процедуры перебора
const n = 4;
var i,j,k,m,l,p,t1,t2: integer; s: real; a: array[1..n] of integer; begin s:= 0; a[1]:=2; //можно задать любое количество животных a[2]:=4; a[3]:=1; a[4]:=2; writeln(a[1],' ',a[2],' ',a[3], ' ' ,a[4]); // for i:=1 to n do begin // a[i]:=1; // end; // t1:=MilliSeconds; 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; t2:=MilliSeconds; writeln('Ответ: ', s, ' способов'); writeln('Время: ', t2-t1, ' мс'); end. |
29.12.2022, 00:12 | #3 |
Регистрация: 08.06.2011
Сообщений: 4
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |
Paskal | SkyL1ne | Помощь студентам | 1 | 25.12.2009 10:09 |
Paskal | netcher | Помощь студентам | 3 | 05.02.2009 02:04 |