Язык программирования бейсик . кто может найти ошибку в моем решении : "напишите программу, которая находит кол-во чисел, кратных 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 заранее
Вот так должно быть
5 DIM A(1000)
40 IF A(I)=0 THEN M=I: GO TO 60
90 PRINT S