Anh chỉ viết phần thân thôi
1.
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
i:=1;
while (i mod a <> 0) and (i mod b <> 0) do inc(i);
writeln('BCNN cua a va b la: ',i);
readln;
end.
2.
begin
clrscr;
write('n=');readln(a);
write('m=');readln(b);
i:=1;
while (i mod n <> 0) and (i mod m <> 0) do inc(i);
writeln('Sau ',i,' ngay thi hai tau cap cang cung nhau');
readln;
end.
Nhớ cho anh câu tlhn nha (NẾU ĐÚNG HẾT)
bài kia và bài 4 nè