Question

Se citeste un numar nr sa se afiseze cifra maxima care apare in scrierea lui
Cifra maxima se initializeaza 0

Answer 1

Program CifraMax;
var nr, y: integer;

  Function CMAX(A:integer):integer;
    var
      max, b, c, d: integer;
begin
b:=10000;
max:=0;
        for c:=1 to 5 do
        begin
        d:=A div b;
        if d>max then max:=d;
        A:=A-b*d;
        b:=b div 10;
        end;
CMAX:=max;
end;
 
begin
  write ('Introduceti un numar: ');
  readln (nr);
y:=CMAX(nr);
writeln ('Cea mai mare cifra este: ',y);
 readln;
   end.