Question

viết chương trình pascal tìm ước chung lớn nhất và bội chung nhỏ nhất của ba số a,b,c nhập từ bàn phím

Answer 1

uses crt;

var a,b,c,min,ucln,bcnn:longint;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

min:=a;

if min>b then min:=b;

if min>c then min:=c;

ucln:=1;

for i:=1 to min do

if (a mod i=0) and (b mod i=0) and (c mod i=0) then

begin

if ucln<i then ucln:=i;

end;

writeln('uoc chung lon nhat=',ucln);

bcnn:=a*b*c;

for i:=a*b*c downto 1 do

if (i mod a=0) and (i mod b=0) and (i mod c=0) then

begin

if bcnn>i then bcnn:=i;

end;

writeln('Boi chung nho nhat=',bcnn);

readln;

end.