Найти шестизначное число по условию - QBasic

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

Найти шестизначное число такое, что 1. первая цифра этого числа 1 2. последняя цифра 7 3. если эту цифру (7) поставить перед 1, то получится число в 5 раз больше искомого числа. Программа нашла такое число, это 142857 Вопросы. Этот вопрос у меня возник после решения задачи, вот он 1. Как можно было сократить программу (вычисления)? 2. Что можно было вычислить сразу и еще более сократить вычисления?
REM
REM   142857; 714285
REM
 
CLS
 
FOR x = 0 TO 9
FOR y = 0 TO 9
FOR z = 0 TO 9
FOR u = 0 TO 9
   c = 1000 * x + 100 * y + 10 * z + u
   d = 10 * c
   a = 100007 + d
   b = 710000 + c
   IF b = 5 * a THEN PRINT a; b
NEXT u, z, y, x
END

Код к задаче: «Найти шестизначное число по условию - QBasic»

textual
DIM i AS LONG
FOR i = 0 TO 9999 STEP 5
    IF 710000 + i = (100007 + i * 10) * 5 THEN PRINT 100007 + i * 10, 710000 + i
NEXT i

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


СОХРАНИТЬ ССЫЛКУ