Các bạn hãy chú ý bài 8 nhé!lylyl

Quang đã dùng Mapple (phần mềm toán học không thể sai) kiểm tra và cho kết quả như sau:

BCNN của 0 với số nào đó là số 0.

Ví dụ. BCNN(0,9,3)=0

BCNN(0,0,4)=0.

Các bạn có thể kiểm tra lời mình nói bằng cách cài Mapple rồi đánh lệnh theo công thức tim BCNN:

lcm (số 1, số 2,..,số n); để kiểm tra

Ví dụ: muốn tìm BCNN(0,8,7) thi gõ :

lcm(0,8,7);

Do vậy cách giải quyết bài toán này nếu nhập cả số 0 sẽ làm như sau:

program BCNN;

var

m,n,k: integer;

x,y,z,l:integer;

b,bs: integer;

begin

writeln(' Nhap 3 so m,n,k: ');

readln(m,n,k);

if( m=0) or (n=0) or (k=0) then

writeln ('BCNN cua 3 so la: 0 ')

else

begin

x:=m;

y:=n;

repeat

if(x>y) then

x:=x-y

else

y:=y-x;

until

x=y;

b:=m*n div x;

z:=b;

l:=k;

repeat

if(z>l) then

z:=z-l

else

l:=l-z;

until

z=l;

bs:=b*k div z;

writeln ('BCNN 3 so la: ',bs);

end;

readln;

end.