Qbasic даны векторы а={}, в={}. переменной z присвоить значение 1, если вектор а содержит больше чисел, делящихся без остатка на 3, чем вектор в, и значение 0 - в противном случае. подсчет чисел оформить отдельной подпрограммой.
112
457
Ответы на вопрос:
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
Uses crt; const n = 39; var x: array[1..n] of integer; i,j,k: integer; begin randomize; clrscr; k: =0; writeln('исходный массив: '); for i: = 1 to n do begin x[i]: =random(53)-15; if x[i]< 30 then begin textcolor(12); k: =k+1; end else textcolor(7); write(x[i],' '); end; writeln; writeln; textcolor(7); writeln('числа, меня тридцати: ',k); writeln; writeln(' массив: '); for i: = 1 to n do for j: = 1 to n-1 do if x[j]> x[j+1] then begin k: =x[j+1]; x[j+1]: =x[j]; x[j]: =k; end; k: =0; for i: = 1 to n do begin write(x[i],' '); j: =x[i]; while j div 10 < > 0 do j: =j div 10; if (j = 2)or(j = -2) then k: =k+1; end; writeln; writeln; writeln('числа, начинающиеся с двойки: ',k); readln; end.
Популярно: Информатика
-
NikaAs101.02.2023 07:42
-
Lezka10.05.2023 09:52
-
ksenia87109r67505.08.2022 12:44
-
ЗайчонокЛаймик24.01.2023 15:35
-
margaritabennioxwu8x11.04.2023 02:11
-
jono104.05.2023 23:34
-
Xanuzbek05.11.2021 08:58
-
MaryanaSokolova040416.06.2020 07:58
-
бегуния28.02.2022 09:45
-
Kesha444416.04.2022 21:42