Напишите программу по выдаче рандомных чисел, содержащих от 1 до 5 знаков, состоящих из чисел от 1 до 12, так чтобы: за цифрой 1 могли следовать только цифры 4, 5, 7, 9, 10 за цифрой 2 - только 5, 6, 8, 10, 11 за цифрой 3 - только 6, 7, 9, 11, 12 за цифрой 4 - только 1, 7, 8, 10, 12 за цифрой 5 - только 1, 2, 8, 9, 11 за цифрой 6 - только 2, 3, 9, 10, 12 за цифрой 7 - только 1, 3, 4, 10, 11 за цифрой 8 - только 2, 4, 5, 11, 12 за цифрой 9 - только 1, 3, 5, 6, 12 за 10 - только 1, 2, 4, 6, 7 за 11 - только 2, 3, 5, 7, 8 за 12 - только 3, 4, 6, 8, 9 примерные результаты программы: 1473, 21106, 112, 82

{вам следовало бы более точно описать, что вам нужно. непонятно, что это за условие со следованием. в примере 21106 за цифрой 2 следует 11, но за 11 не следует ничего из перечисленного. ну или в нем 10 следует за 1, но тогда зачем условия следования для 10..12? + ничего не сказано про случайное распределение этих чисел. так-то программа, которая все время выводит "1", тоже подходит под эти условия } const   r: array[1..12,1..5] of integer = (   (4,5,7,9,10),    //1   (5,6,8,10,11),  //2   (6,7,9,11,12),  //3   (1,7,8,10,12),  //4   (1,2,8,9,11),    //5   (2,3,9,10,12),  //6   (1,3,4,10,11),  //7   (2,4,5,11,12),  //8   (1,3,5,6,12),    //9   (1,2,4,6,7),      //10   (2,3,5,7,8),      //11   (3,4,6,8,9)        //12   ); var i,k: integer;   begin   k : = 1 + random(12);   for i : = 1 to 1 + random(3) do       begin       write(k);       k : = r[k,1 + random(5)];       end; end.

1) uses crt; const g=9.82; var h,t: real; begin clrscr; write ('h='); readln (h); t: =sqrt(2*h/g); writeln ('t=',t: 5: 2); end. 2) uses crt; var h,a,b,s: real; begin clrscr; write ('h='); readln (h); write ('a='); readln (a); write ('b='); readln (b); s: =1/2*(a+b)*h; writeln ('s=',s: 5: 2); end. 3) uses crt; const n=8; var i: integer; ch: array [1..n] of char; begin clrscr; for i: =1 to n do readln (ch[i]); writeln (); for i: =1 to n do writeln (ch[i]); end. 4) uses crt; var a,b,r: real; begin clrscr; write ('a='); readln (a); write ('b='); readln (b); r: =b; r: =a; a: =b; writeln ('a=',a); writeln ('b=',r); end.