1,Viết chương trình nhập một số nguyên N(100<=N<=999) Yêu cầu: tìm chữ số lớn nhất của N 2,Viết chuông trình nhập từ bàn phím hai số nguyên a và b Yêu cầu: Tìm BCNN của a và b Giúp mình vs ạ mình đg cần gấp . Sáng nay mình thi r ah Mình sẽ bình chọn cho Ng cs ctlhn
Program BT;
Var n,k,a,b,t,bcnn,ucln,max : longint;
Begin
repeat
Write (‘a,Nhap N : ‘);Readln(n);
until (n >= 100) and (n <= 999);
max := 0;
while n <> 0 do
Begin
k := n mod 10;
If k > max then max := k;
n := n div 10;
end;
Writeln (‘=> Chu so lon nhat la : ‘,max);
Writeln(‘———————————–‘);
Write (‘b,Nhap a,b : ‘);Readln(a,b);
t := a*b;
While a <> b do If a > b then a := a-b else b := b-a;
UCLN := a;
BCNN := t div UCLN;
Write (‘=> BCNN cua 2 so a va b la : ‘,BCNN);
end.