Определите, имеется ли в заданном целочисленном массиве X(N) число, кратное заданным числам A и B и не кратное числу C — PureBasic(Бейсик)

INPUT "A=", A
INPUT "B=", B
INPUT "C=", C
For i=1 to N
  If X(i) mod A =0 AND X(i) mod B =0 AND X(i) mod C <> 0 Then
    Print X(i)
  End if
Next i

Leave a Comment