Qbasic даны векторы а={}, в={}. переменной z присвоить значение 1, если вектор а содержит больше чисел, делящихся без остатка на 3, чем вектор в, и значение 0 - в противном случае. подсчет чисел оформить отдельной подпрограммой.
289
305
Ответы на вопрос:
Const n = 15 declare sub km30 (a% k) dim a%(n), b%(n) cls randomize timer print "a("; n; "): "; for i = 1 to n a%(i) = rnd * n print a%(i); next i print call km30(a% k) print "b("; n; "): "; for i = 1 to n b%(i) = rnd * n print b%(i); next i call km30(b% k2) if k > k2 then z = 1 else z = 0 end if print , "z = "; z end sub km30 (a% k) for i = 1 to n if a%(i) mod 3 = 0 then k = k + 1 end if next i end sub пример работы программы: a( 15 ): 0 3 0 14 10 15 8 14 3 8 6 11 11 15 6 b( 15 ): 1 1 1 5 3 5 10 6 3 9 14 8 5 14 2 z = 1
Cls dim a(15),b(15) as integer dim k_a,k_b as integer for i=1 to 15 input a(i) input b(i) next call hisob() if k_a> k_b then z=1 else z=0 print z sub hisob() for i=1 to 15 if a(i) mod 3=0 then k_a=k_a+1 if b(i) mod 3=0 then k_b=k_b+1 next end sub
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Kek34658211.05.2022 04:15
-
пепоам28.03.2021 04:46
-
Edam02.09.2022 05:21
-
Памагиш15.08.2022 04:51
-
Yorgen102.08.2022 00:50
-
ленаискакова12.10.2022 18:01
-
lovegamid07.02.2023 13:47
-
Eskhere30.11.2020 02:32
-
Hikolog02.01.2023 08:08
-
Sasha03050606.01.2021 14:51
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.