Đâ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è