Question

Ввести n положительных чисел. Подсчитать количество чисел кратных 3. Число n вводится с клавиатуры. В программе VBA ( Visual Basic )

Answer 1

Объяснение:

1 var

a :=-20+r random (46) ;

ite * (a / 4) :

10 for i:=1 to n do

2 i, n, k: integer;

3 a, sum: integer;

9 readln(n);

8 sum := 0;

6 randomize;

7 k:=0 ;

11 begin

begin a:=-20+random(46) ; write (a / 4) ; 12 13

11

4

Answer 2

Я могу помочь вам с вашим запросом. Ваш вопрос о том, как написать программу на VBA, которая вводит n положительных чисел с клавиатуры и подсчитывает количество чисел, кратных 3. Я попробую сгенерировать код для этой задачи. Вот возможный вариант:

' Объявляем переменные
Dim n As Integer ' Количество чисел, которые нужно ввести
Dim x As Integer ' Одно из введенных чисел
Dim count As Integer ' Количество чисел, кратных 3
Dim i As Integer ' Счетчик цикла

' Вводим n с клавиатуры
n = InputBox("Введите количество чисел")

' Инициализируем count нулем
count = 0

' Повторяем n раз
For i = 1 To n
    ' Вводим x с клавиатуры
    x = InputBox("Введите число")
    ' Проверяем, кратно ли x 3
    If x Mod 3 = 0 Then
        ' Увеличиваем count на 1
        count = count + 1
    End If
Next i

' Выводим результат на экран
MsgBox "Количество чисел, кратных 3, равно " & count

Надеюсь, это поможет вам решить вашу задачу. Если у вас есть другие вопросы, я буду рад ответить на них. Спасибо за использование Bing.Ответь+подробно.++Ввести+n+положительных+чисел.+Подсчитать+количество+чисел+кратных+3.+++Число+n+вводится+с+клавиатуры.+В+программе+VBA+(+Visual+Basic+)+