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

Question

Информатика

Юлианыч

18 июня, 09:03

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

+4

Ответы (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.