Имеется трёхзначное число, цифры которого различны. Помогите решить задачу!

Имеется трёхзначное число, цифры которого различны. Помогите решить задачу!
Имеется трёхзначное число, цифры которого различны. После зачеркивания в нем средней цифры остаётся двузначное число, являющееся делителем данного. Найдите N- первых таких трёхзначных чисел.
INPUT N
FOR c = 1 TO 9
FOR d = 0 TO 9
FOR a = 0 TO 9
IF c <> d AND d <> a AND c <> a AND (c * 100 + d * 10 + a) (c * 10 + a) = (c * 100 + d * 10 + a) / (c * 10 + a) THEN PRINT (c * 100 + d * 10 + a)
NEXT a
NEXT d
NEXT c
Как теперь сделать, что бы выводились первые числа из ответа?

  • CLS
    INPUT "n"; n
    i = 1
    v = 100
    DO WHILE i < n AND v < 1000
    d0 = v 100
    d1 = v 10 MOD 10
    d2 = v MOD 10
    IF d0 <> d1 AND d0 <> d2 AND d1 <> d2 AND v MOD (d0 * 10 + d2) = 0 THEN
    PRINT v
    i = i + 1
    END IF
    v = v + 1
    LOOP
  • Из какого еще ответа?
    Вообще, если программа работает правильно, она выводит все найденные числа.
    Чтобы ограничить их количество, введи счетчик:

    ... THEN PRINT (c * 100 + d * 10 + a) : K=K+1 : IF K=N THEN HALT

  • ХЗ, Что это за язык, но нужно перед алгоритмом задать переменную, пусть будет K=0

    IF c <> d AND d <> a AND c <> a AND (c * 100 + d * 10 + a) (c * 10 + a) = (c * 100 + d * 10 + a) / (c * 10 + a)
    THEN
    {
    K=K+1
    IF K< =N
    PRINT (c * 100 + d * 10 + a)
    }
    Надеюсь, понятно?