Определить количество элементов последовательности, кратных 7 и не кратных 5 - QBasic

Формулировка задачи:

Помогите пожалуйста отладить задачку, очень надо!!!!!!! Дана числовая последовательность,состоящая из К элементов.Определить кол-во элементов кратных 7,и не кратных 5. (QBasic)

INPUT k
k=0
FOR i = 1 TO k
INPUT a
IF (MOD(a, 7) = 0) AND (div(a,5)<>5) THEN k=k+1
NEXT i
PRINT "колво эл-тов ="; k
END

Решение задачи: «Определить количество элементов последовательности, кратных 7 и не кратных 5»

textual
                            Листинг программы 
                        

                            INPUT "vvedite kolichestvo chisel v posledovatelnosti ",k
FOR i = 1 TO k
INPUT "vvedite chislo ",a
IF a MOD 7 = 0 AND a MOD 5 <>0 THEN n=n+1
NEXT 
PRINT "takih chisel=";n
                        

Оцени полезность:

13 голосов , оценка 4.308 из 5

Похожие ответы