paskal

[Alastar11]

Можете пожалуйста решить эту задачу
В городском зоопарке содержатся животные N (1 ≤ N ≤ 1000) разных видов. Для участия в международной выставке зоопарк должен представить трех животных различных видов. Требуется написать программу, которая вычислит число способов выбрать трех животных для участия в выставке. Например, если в зоопарке два медведя, тигр, лев и пингвин, то есть семь способов выбрать трех животных:
1. первый медведь, тигр и лев;
2. первый медведь, тигр и пингвин;
3. первый медведь, лев и пингвин;
4. второй медведь, тигр и лев;
5. второй медведь, тигр и пингвин;
6. второй медведь, лев и пингвин;
7. тигр, лев и пингвин.

[Alastar11]

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.

[Thread]

Обращайтесь

https://t.me/dzmitry1981
https://vk.com/cyber4401