Ввести n положительных чисел. Подсчитать количество чисел кратных 3.
Число n вводится с клавиатуры. В программе VBA ( Visual Basic )
Ответы
Ответ дал:
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
Похожие вопросы
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад
9 лет назад