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

Question

Информатика

Лукьян

10 июня, 23:03

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

+5

Ответы (2)

Знаете ответ на вопрос?

Вонифатий · Answer 1

program qwerty;

var i: integer;

begin

for i:=100 to 1000 do

if ((i div 100) ((i div 10) mod 10)) and ((i div 100) (i mod 10)) and ((i mod 10) ((i div 10) mod 10))

then writeln (i) ;

end.

Нинюра · Answer 2

Var

i, j, k: integer;

begin

for i : = 1 to 9 do

for j : = 0 to 9 do

for k : = 0 to 9 do

if (i j) and (i k) and (j k) then

writeln (100 * i + 10 * j + k) ;

end.