Umístnení souboru www.TrSek.com/zadania/max_cifra.pas
{ MAX_CIFRA.PAS                                                     }
{ Urci maximalnu cifru zo zadaneho cisla.                           }
{                                                                   }
{ Date  : 14.04.2008                           http://www.trsek.com }

program maximalna_cifra;
var N:longint;                 { cislo }
    max: integer;              { maximalna cifra }
    pom: integer;              { pomocna premena }

begin
 writeln('Program urci maximalnu cifru cisla : ');
 write  ('Zadaj N = ');

 readln(N);
 max:=0;

 while(N>0) do
  begin
   pom:=N mod 10;
   N:=N div 10;

   { je vacsie ako doteraz najdene }
   if( pom > max )then
       max:=pom;
  end;

  writeln('Maximalna cifra je : ', max);
  readln;
end.
Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com