46) Viết chương trình nhập vào số nguyên dương ????. Xuất ra màn hình chữ số lớn nhất của ????. 47) Viết chương trình nhập vào số nguyên dương ????. Xuất ra

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   !!!!!!!!!!!!!!!!!!!!!!

Trả lời