Viết chương trình tính Ước chung lớn nhất, bội chung nhỏ nhất có sử dụng chương trình con. giúp mình sớm nhé, mình cảm ơn

Question

khanhngan · Answer

program UCLN_BCNN;

uses crt;

var a,b:integer;

{——-Chuong-trinh-con——-}

function UCLN(x,y:integer):integer;

var r:integer;

begin

r:=y mod x;

while r<>0 do

begin

r:=x mod y;

x:=y;

y:=r;

end;

UCLN:=x;

end;

{———-Chuong-trinh-chinh———}

BEGIN

clrscr;

write(‘Nhap a: ‘); readln(a);

write(‘Nhap b: ‘); readln(b);

writeln(‘UCLN(‘,a,’,’,b,’)= ‘,UCLN(a,b));

writeln(‘BCNN(‘,a,’,’,b,’)= ‘,(a*b) div UCLN(a,b));

readln;

END.

0 bình luận về “Viết chương trình tính Ước chung lớn nhất, bội chung nhỏ nhất có sử dụng chương trình con. giúp mình sớm nhé, mình cảm ơn”