Язык программирования БейсикЗдравствуйте. Кто может найти ошибку в моем решении
Язык программирования Бейсик
Здрасти. Кто может найти ошибку в моем решении задачи:
"Напишите программку, которая обретает кол-во чисел, кратных 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 lt;gt;0 THEN S=S+1
80 NEXT I
0 PRINT S
100 END
Заблаговременно спасибо
Задать свой вопрос-
Вопросы ответы
Статьи
Информатика
Статьи
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.
Русский язык.
Русский язык.
Разные вопросы.