7.2.. Učitati trocifren broj i ispisati njegovu najveću cifru.

Opis rješenja: Vrijednosti trocifrenog broja se učitava sa tastature. Izdvajaju se cifre trocifrenog broja. Porede se cifre i ispisuje najv?ća (Vidi >>).

Listing programa:

PROGRAM P07211117;
VAR
  a, s, d, j, max : INTEGER;
BEGIN
  Writeln('Unesi trocifren broj ');
  Write('Trocifren broj ');
  Readln(a);
  s:= a div 100;
  d:= (a mod 100) div 10;
  j:= a mod 10;

  max:=s;             {pretpostavi cifra s je max}
  IF d > max THEN     {da li d veca?}
    max := d;         {druga cifra je veca od prve i postaje novi max  }
  IF j > max THEN     {da li je j veca od trenutnog maksimuma?}
     max := j;        {treci je max}

  Writeln('Od broja ', a, '  najveca cifra je: ', max);

  READLN;
END.


Unesi trocifren broj
Trocifren broj 253
Od broja 253  najveca cifra je: 5

Ispis na ekranu:

Index