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

0 bình luận về “Đâ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à”

1. 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è

   

   Bình luận