Лабораторная работа: Разработка программы формирования перестановок, сочетаний, размещений (Turbo Pascal 7.0.)

write('Razmeshenie iz=');

readln(iz_skolki);

write(' po=');

readln(po_skolko);

for i:=1 to iz_skolki do massiwi2[i]:=i;

writeln;

writeln('Razmeshenie:');

razmesheniye(iz_skolki,1,massiwi2);

readln;

goto kombinatorika;

end;

4: end;

end.

К-во Просмотров: 226
Бесплатно скачать Лабораторная работа: Разработка программы формирования перестановок, сочетаний, размещений (Turbo Pascal 7.0.)