Question

Viết chương trình tìm UwCLN, BCNN của 3 số nguyên

Answer 1

https://i.imgur.com/zeJkooh.png

Answer 2

uses crt;
var i,a,b,c,ucln,bcnn,bcnn1,n:longint;
k:array[1..3]of integer;
{--------------------chuong-trinh-con-tim-ucln----------------------}
function uc(x,y:integer):integer;
begin
while x<>y do
begin
if x>y then x:=x-y
else y:=y-x;
end;
uc:=x;
end;
{-------------------chuong-trinh-chinh----------------------------}
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
n:=3;
k[1]:=a;
k[2]:=b;
k[3]:=c;
ucln:=uc(k[1],k[2]);
bcnn:=(k[1]*k[2]) div ucln;
for i:=3 to n do
begin
ucln:=uc(bcnn,k[i]);
bcnn:=(bcnn*k[i]) div ucln;
end;
writeln(bcnn);
readln;
end.