Создайте одномерный массив, поменяйте местами первый элемент кратный 7 и средний элемент,решить на pascal abc.
108
398
Ответы на вопрос:
// pascalabc.net 3.1, сборка 1179 от 29.02.2016 const n=15; var a: array[1..n] of integer; i,k,t: integer; begin randomize; k: =0; for i: =1 to n do begin a[i]: =random(90)+10; if k=0 then if a[i] mod 7 = 0 then k: =i; write(a[i],' ') end; writeln; if k> 0 then begin if odd(n) then i: =n div 2+1 else i: =n div 2; t: =a[k]; a[k]: =a[i]; a[i]: =t; for i: =1 to n do write(a[i],' '); writeln end else writeln('нет элементов, кратных 7') end. тестовое решение: 25 25 47 22 51 63 92 11 38 32 87 54 11 16 18 25 25 47 22 51 11 92 63 38 32 87 54 11 16 18
//pascalabc.net 3.0 сборка 1139 (10.01.2016) begin var a : = arrrandom(10, 1, 100); a.println; if not a.any(x -> x mod 7 = 0) then begin writeln('нет элемента, что делится на 7'); halt(); end; var n7 : = 0; for var i : = low(a) to high(a) do if a[i] mod 7 = 0 then begin n7 : = i; break; end; var t : = a[(low(a) + high(a)) div 2]; a[(low(a) + high(a)) div 2] : = a[n7]; a[n7] : = t; a.println; end.
Мощность алфавита - кол-во символов в этом алфавите. мощность алфавита: , где 'b' - кол-во бит на один символ. найдём 'b': 2048 / 256 = 8 бит / символ => n = 2^8 = 256 символов.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
solnyshko4601.11.2021 13:16
-
Trolololo0901.03.2020 23:55
-
kav200320.02.2023 00:15
-
mneholodno28.04.2023 18:54
-
ksenaf15.04.2020 20:20
-
Дариа963602.06.2021 02:06
-
Ronaldinho200322.04.2021 02:44
-
vefremka22.01.2021 17:42
-
aaysu22831.08.2022 19:47
-
Шаров200513.01.2023 03:55
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.