Question

Se introduc de la tastatura n numere. Sa se afiseze cea mai mare cifra a fiecarui numar.
Algoritmul sa fie doar in pascal va rog nu si il alte limbaje de programare!

Answer 1

Cifra maxima a unui numar:

var a:longint;

   mx:byte;

begin

repeat

write('Enter un numar natural a=');

readln(a);

until a>0;

mx:=0;

while a>0 do

begin

 if a mod 10>mx then mx:=a mod 10;

 a:=a div 10;

end;

writeln('Numarul maxim=',mx);

end.