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 najveća (Vidi >>).

Listing programa:

PROGRAM P07211117;
USES
  WinCrt;
VAR
  a, s, d, j, max : INTEGER;
BEGIN
  Writeln('Najveca cifra trocifrenog broja');   { naslov }
  Write('Trocifren broj: ');
  Readln(a);{                   { ulaz - ucitavanje vrijednosti }
  s:= a div 100;                { cifra stotica }
  d:= (a mod 100) div 10;       { cifra desetica }
  j:= a mod 10;                 { cifra jedinica }

  max:=s;             {pretpostavi cifra s je max}
  IF d > max THEN     {ako je cifra desetica veca od pretpostavljenog maksimuma, tada }
    max := d;         {cifra desetica veca}
  IF j > max THEN     {ako je cifra jedinica najveca?}
     max := j;        {cifra jedinica najveca}
	 
  Writeln('Najveca cifara broja = ', a, '  je: ', max);
END.

Ispis na ekranu:

Index