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

Question

Информатика

Лукьян

8 августа, 18:12

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

+1

Ответы (2)

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

Нинюра · Answer 1

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.

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

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.