Дано трехзначное число. Найти все трехзначные число, состоящие из тех же цифр, что и исходное число.

Var

n:integer;

i, j, k:byte;

a:array[1 ... 3] of byte;

begin

Write ('Введите натуральное трехзначное число: ') ;

Read (n) ;

for i:=1 to 3 do

begin

a[i]:=n mod 10;

n:=n div 10

end;

for i:=1 to 3 do

for j:=1 to 3 do

for k:=1 to 3 do

if a[i]0 then Write (a[i], a[j], a[k],' ') ;

Writeln

end.

Тестовое решение:

Введите натуральное трехзначное число: 307

777 770 773 707 700 703 737 730 733 377 370 373 307 300 303 337 330 333