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:
|
|||||||
|