viết chương trình tìm ucln và bcnn của a,b pascal nha
2 câu trả lời
var a,b:longint;
t,k,r:longint;
function ucln(x,y:longint):longint;
begin
r:=y mod x;
while r<>0 do
begin
r:=x mod y;
x:=y;
y:=r;
end;
ucln:=x;
end;
function bcnn(a1,b1:longint):longint;
begin
bcnn:=a1 div ucln(a1,b1)*b1;
end;
begin
read(a,b);
k:=ucln(a,b);
t:=bcnn(a,b);
write('UCLN:',k,' ');
write('BCNN:',t);
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
