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