Giúp dùm em BT pascal

[killer123]

Nhờ mấy anh, chị giúp em bài này de em đi thi HSG
Chỉ xài mấy lệnh học ở cấp 2 thui
BT1 nhập 2 số tìm BCNN
BT2 nhập 1 số trong longint và tìm số lớn nhất trong số đó

[nhokdragon94]

B1: hình như là có công thức: bcnn(a,b)*ucln(a,b)=a*b;
Thì tìm Ucln của a và b sau đó theo công thức trên mà làm thui.
Tìm ucln:
while a<>b do
If a>b then a:=a-b
else If a<b then
b:=b-a;
ucln:=a;{đây là UCLN}

B2:
tìm số lớn nhất trong số đó
Có 1 số thì nó là số lớn nhất rùi(khỏi tính) ^^!

[tamppk]

bai 2
minh chi goi y thoi nha
ban chuyen so do sang dang chuoi
b2: chuyen tung phan tu sang dang so rui so sanh.ok
ko dc thi mai minh viet code nha.gio hoi ban,

[dmtmufc]

bài 2(nhập số longint là x):
y:=x;max:=0;
while y<>0 do
begin
if (y mod 10)>max then max:=(y mod 10);
y:=y div 10;
end;
write('so lon nhat trong ',x,' la:',max);

[QuyNam]

bài 1


uses crt;
var a,b,max,i:integer;
begin
clrscr;
write('nhap 2 so : ');readln(a,b);
if a>b then i:=a else i:=b;
while not ((i mod a=0) and (i mod b=0)) do inc(i);
writeln('bcnn : ',i);
readln;
end.


bài 2 dmtmufc làm vậy là ổn rồi

[killer123]

Ai có bài thi HSG lớp 9 mấy năm trước cho em biết đề để em 4-1 thi