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 màn hình chữ số nhỏ nhất của
*Lập trình pascal, dùng longint, while, for. ko dùng array, boolean, true-false. Thanks trước ạ!!!
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 !!!!!!!!!!!!!!!!!!!!!!