Напечатать в возрастающем порядкевсе трехзначные числа…

Question

Напечатать в возрастающем порядкевсе трехзначные числа, в десятичной записи кот. Нет одинаковых цифр

Answer 1

94

centilion

11 марта 2023

Uses crt; var i: integer; begin for i: =100 to 999 do if (i mod 10) <> (i div 100) and (i mod 10) <> (i mod 100 div 10) and (i div 100) <> (i mod 100 div 10) then writeln (i); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: