Question

se da un numar natural n scrieti un program pascal ce va determina cea mai mare dintre cifrele numarului dat
pascal

Answer 1

var n,max:string;
i:integer;

begin
write('Numarul: ');
readln(n);

max:=n[1];

for i:=1 to length(n) do
if n[i]>max then max:=n[i];

writeln('Cea mai mare cifra: ',max);
end.