46)
uses crt;
var i,n,max: longint;
begin
clrscr;
write ('nhap n: '); readln (n);
while n<0 then
begin
i:=n mod 10;
n:=n div 10;
if i>max then max:=i;
end;
writeln ('chu so lon nhat cua n la: ',max);
readln;
end.
47)
uses crt;
var i,n,min: longint;
begin
clrscr;
write ('nhap n: '); readln (n);
min:=n mod 10;
while n<0 then
begin
i:=n mod 10;
n:=n div 10;
if i<min then min:=i;
end;
writeln ('chu so nho nhat cua n la: ',min);
readln;
end.
Chúc bạn gặp nhiều may mắn trong kì thi giữa HK 1 !!!!!!!!!!!!!!!!!!!!!!