Язык программирования Бейсик Здравствуйте. Кто может найти ошибку в моем решении задачи: "Напишите программу, которая находит кол-во чисел, кратных 3, но не кратных 6, в последовательности заданных чисел. Программа получает на вход целые числа, кол-во введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Кол-во чисел не превышает 1000. Введенные числа по модулю не превышают 30000." Решение: 10 CLS 20 FOR I=1 TO 1000 30 INPUT "Введите число";A(I) 40 IF A(I)=0 THEN M=I AND 60 50 NEXT I 60 FOR I=1 TO M 70 IF A(I) MOD 3 = 0 AND A(I) MOD 6 <>0 THEN S=S+1 80 NEXT I 0 PRINT S 100 END Заранее спасибо