Составить программу случайного выбора трех дисциплин, по которым придется сдавать экзаме-ны, из предлагаемых на выбор четырех (всего возможно 4 варианта выбора).

Question

Составить программу случайного выбора трех дисциплин, по которым придется сдавать экзаме-ны, из предлагаемых на выбор четырех (всего возможно 4 варианта выбора).

Гость

Ответ(ы) на вопрос:

Accepted Answer

var d1,d2,d3,d4:string; begin randomize; readln(d1); readln(d2); readln(d3); readln(d4); case random(4) of 0: writeln(d1,d2,d3); 1: writeln(d1,d2,d4); 2: writeln(d2,d3,d4); 3: writeln(d1,d3,d4); end; end.