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

Question

Информатика

Михайлыч

26 сентября, 09:38

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

+2

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