Как получить набор уникальных комбинаций к примере 4 из 20? и можно ли это сделать в pascal abc или в другой программе?

Question

Алексейка

24 сентября, 05:58

+3

Ответы (1)

Знаете ответ на вопрос?

Леоныч · Answer 1

Var a, i:integer;

begin

for i: = 1 to 4 do begin

a:=random (1,20) ;

write (a,' ') ;

end;

end.