Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 3 раза?
129
401
Ответы на вопрос:
Const n=10; type mas=array[1..3*n] of integer; procedure ins(var a: mas; k,nom: integer); var i: integer; begin for i: =3*n downto nom+3 do a[i]: =a[i-2]; a[nom+1]: =a[nom]; a[nom]: =k; a[nom+2]: =k; end; var b : mas; k,i,j : integer; begin randomize; for i: =1 to n do begin b[i]: =random(51); write(b[i]: 4); end; writeln; write('k='); readln(k); j: =1; for i: =1 to n do if (b[j] mod 10 = k mod 10) then begin ins(b,k,j); j: =j+3 end else j: =j+1; for i: =1 to 3*n do write(b[i]: 4); writeln; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Roma9981209.04.2023 03:24
-
ruslankira1123402.02.2020 10:39
-
Alisa4832909.08.2020 00:51
-
kair777555030.03.2023 23:14
-
Дильназ23112.09.2022 06:42
-
TITANIKбро17.07.2020 04:36
-
demoooon2405.06.2021 08:53
-
Danil21K17.12.2021 13:40
-
dance726.09.2022 09:35
-
dayanocha008004.11.2020 23:25
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.