Напишите программу по выдаче рандомной комбинации букв, соответствующую следующим...

Question

Напишите программу по выдаче рандомной комбинации букв, соответствующую следующим требованиям:- Результат должен состоять из 8 символов (букв)- За буквой A могут стоять только буквы D, E, G, I, JЗа буквой B только E, F, H, J, KЗа буквой C только F, G, I, K, LЗа буквой D только A, G, H, J, LЗа буквой E только A, B, H, I, KЗа буквой F только B, C, I, J, LЗа буквой G только A, C, D, J, KЗа буквой H только B, D, E, K, LЗа буквой I только A, C, E, F, LЗа буквой J только A, B, D, F, GЗа буквой K только B, C, E, G, HЗа буквой L только C, D, F, H, IАнглийские обозначения букв по желанию можно заменить на русские аналоги (A=А, B=Б, C=В, D=Г, E=Д, F=Е, G=Ж, H=З, I=И, J=К, K=Л, L=М) ​

Comments

Паскаль?

Answer 1

const ar:array['A'..'L'] of string[5]=

('DEGIJ','EFHJK','FGIKL','AGHJL','ABHIK','BCIJL',

'ACDJK','BDEKL','ACEFL','ABDFG','BCEGH','CDFHI');

var s:string; c: char; i:integer;

begin

randomize;

s:=chr(random(13)+65);

for i:=2 to 8 do

begin

repeat

c:=chr(random(13)+65);

until pos(c,ar[s[i-1]])>0;

s:=s+c;

end;

writeln(s);

end.

Пример:

KCFJBKGA