Basic в возрастающей последовательности натуральные двухзначные числа,в которых нет одинаковых цифр
Basic в возрастающей последовательности натуральные двухзначные числа,в которых нет одинаковых цифр
Гость
Ответ(ы) на вопрос:
ГостьCLS
FOR i = 10 TO 98
IF i \ 10 = i - 10 * (i \ 10) THEN
ELSE
PRINT i,
END IF
NEXT i
ГостьЕще один вариант
FOR i = 1 TO 9
FOR j = 1 TO 9
IF i <> j THEN PRINT i * 10 + j; " ";
NEXT j
NEXT i
Не нашли ответ?
Похожие вопросы