Đây là bài pascal muốn đố các anh chị 8,9 xem ai giải đc không. 1. Nhập a,b là số nguyên tìm BCNN(a,b) 2. Tàu KT1 cập cảng n ngày 1 lần. Tàu KT2 m ngày cập cảng một lần. Nhập n,m là số nguyên. Hỏi bao nhiêu ngày thì hai tàu cập cảng cùng nhau. Em lớp 6 thôi nha.
1 câu trả lời
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è