Thordirdin
5 год назад
QBasicДаны векторы А={а1,...,а15}, В={b1,...,b15}. Переменной Z присвоить значение 1, если вектор А содержит больше чисел, делящихся без остатка на 3, чем вектор В, и значение 0 - в противном случае. Подсчет чисел оформить отдельной подпрограммой.
ОТВЕТЫ
Лев
Oct 24, 2020
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
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
711
Смежные вопросы:
