Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6. Программа должна вывести одно число – количество чисел, кратных 6.

Answer 1

Ответ:

CLS

a:

INPUT n

IF n < 1 OR INT(n) <> n OR n > 1000 THEN GOTO a

DIM a(n)

FOR i = 1 TO n

b:

INPUT a(n)

IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 30000 THEN GOTO b

IF INT((a(n)) / 6) = (a(n)) / 6  THEN h = h + 1

NEXT i

PRINT h

END

Объяснение: