Question

Имеется 3 числа : A ,B ,C. Найти количество нулей. как написать в бейсике?

Answer 1

Sub aaa()
    a = InputBox("Введите число А")
    b = InputBox("Введите число B")
    c = InputBox("Введите число C")
    s = a + b + c
    k = 0
    For i = 1 To Len(s)
        If Mid(s, i, 1) = "0" Then k = k + 1
    Next i
    MsgBox "Общее количество нулей равно" + Str(k)
End Sub

Answer 2

Для нахождения количества нулей среди трех чисел A, B и C в языке BASIC, вы можете использовать следующий код:

count = 0

if A = 0 then
    count = count + 1
end if

if B = 0 then
    count = count + 1
end if

if C = 0 then
    count = count + 1
end if

print "Количество нулей: " + str$(count)

В этом коде мы используем переменную `count`, чтобы отслеживать количество нулей. Затем мы проверяем каждое число A, B и C на равенство нулю с помощью оператора `if`. Если число равно нулю, мы увеличиваем значение `count` на 1. В конце мы выводим количество нулей на экран с помощью команды `print`.

Пример:

Предположим, что у нас есть следующие числа:

A = 5 B = 0 C = 0

После выполнения кода, мы получим следующий результат:

Количество нулей: 2

Таким образом, в данном примере у нас два нуля среди трех чисел A, B и C.

Пожалуйста, обратите внимание, что код на BASIC может немного отличаться в зависимости от конкретной реализации языка и используемой среды разработки.