Напишите программу по выдаче рандомных чисел, содержащих от 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

295

358

Посмотреть ответы 2

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

rmnikkp00szv

Информатика

4,4(62 оценок)

{вам следовало бы более точно описать, что вам нужно. непонятно, что это за условие со следованием. в примере 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.

563836

Информатика

4,7(86 оценок)

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.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.