DUzun's Web
Programare, proiecte personale, divertisment

Program P1;

{--------------------------------------------------------------

  SE DAU NR. NATURALE m si n.

  Sa se determine:

  A) cel mai mic nr de doua cifre, format din cifrele 

     unitatilor ale celor 2 nr;

  B) cel mai mare nr de 2 cifre format din cifrele zecilor ale

     celor 2 nr; daca nr e de o cifra, atunci cifra zecilor se

     va considera 0.

 --------------------------------------------------------------}

var 

   m, n: word;

{--------------------------------------------------------------}

function mic(m,n: word): byte;

var a,b: byte;

begin

  a := m mod 10;

  b := n mod 10;

  if a = b then mic := a else 

  if(a>b)and(b<>0)or(a=0)then 

        a := 10*b + a    else 

        a := 10*a + b;

  mic := a;

end;

{--------------------------------------------------------------}

function mare(m,n: word): byte;

var a,b: byte;

begin

  a := (m div 10) mod 10;

  b := (n div 10) mod 10;

  if(a>b)and(a<>0)or(b=0)then 

      mare := 10*a + b    else 

      mare := 10*b + a;

end;

{--------------------------------------------------------------}

BEGIN

  writeln('Introdu 2 nr. naturale!'); readln(m,n);

  writeln;

  writeln('a) Mic:  ', mic(m,n) );

  writeln('b) Mare: ', mare(m,n));

  readln;

END.

​

​