натуральные числа

[Lazarek]

В четырехзначном числе все цифры разные и отличны от нуля. Если его записать в обратном порядке, то получится число, на k меньшее первоначального. Найдите это число.

[Stilet]

И? Наработки где?

[New man]

program Poisk;
function Perevorot(x:integer):integer;
begin
  result:=(x div 1000)+((x mod 1000) div 100)*10+(x mod 100 div 10)*
         100+(x mod 10)*1000;
end;
function PravChislo(i):boolean;
 var s:string;
 j,k:integer;
begin
   s:=inttostr(i);
    result:=true;
   if pos('0',s)<>0 then begin result:=false; exit end;
   for j:=1 to 3 do
   for k:=j+1 to 4 do
      
         if s[i]=s[k]then begin
                result:= false;
                exit;
            end; 
     
end;
var i,k:integer;
begin
  readln(k);
  for i:=1000 to 9999 do
     if (Perevorot(i)+k =i)and PravChislo(i) then
        writeln(i);
    readln;
end.

конечно это не самый лучшьй вариант, но должно работать.

Если помог нажми на весы