Question

Se introduce un Nr de la tastatura, sa se afișeze cel mai mare Nr obținut din cifrele sale. ex: 617 Devine 761. Vreau schema logică.​

Answer 1

var n,n1,m,k,i:integer;

   f:text;

begin

assign(f,'input.txt');

reset(f);

read(f,n);

close(f);

n1:=0;

for i:=9 downto 0 do

begin

 m:=n;

 while m>0 do

  begin

   k:=m mod 10;

   if k=i then n1:=10*n1+k;

   m:=m div 10;

  end;

end;

assign(f,'output.txt');

rewrite(f);

write(f,n1);

close(f);

writeln('Numărul este schimbat și înregistrat în fișierul output.txt');

readln

end.