Bài giảng Bài Tập Tìm UCLN và BCNN
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (26.02 KB, 1 trang )
Đề bài: Nhập vào các từ bàn phím đến số 0 thì kết thúc .Trong những số
đã tìm UCLN và BCNN của các số đó
Bài làm:
Var A:Array[1..100] of integer;
i,t,UCLN,n,m:longint;
Function UC(x,y:integer):integer;
begin
While x<>y Do
If x>y then
x:=x-y
Else y:=y-x;
UC:=x;
end;
Begin
readln(m);
while m<>0 Do
begin
inc(n);
a[n]:=m;
Readln(m);
end;
T:=1;
For i:=1 to n do
Begin
A[i]:=ABS(A[i]);
T:=t*A[i];
End;
UCLN:=UC(A[1],A[2]);
For i:=3 to n do
UCLN:=UC(UCLN,A[i]);
Writeln('UCLN ',UCLN);
Writeln('BCNN ',T div UCLN);
Readln;
End.
