Quảng cáo
2 câu trả lời 127
Lời giải:
uses crt;
var a,b,ucln,bcnn,i:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
ucln:=1;
if a<b then begin
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then begin
if ucln<i then ucln:=i;
end;
end else begin
for i:=1 to b do
if (a mod i=0) and (b mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
bcnn:=a*b;
for i:=a*b-1 downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln('Uoc chung lon nhat la: ',ucln);
writeln('Boi chung nho nhat la: ',bcnn);
readln;
end.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
149631 -
Đã trả lời bởi chuyên gia
99998
-
Đã trả lời bởi chuyên gia
97612
-
Đã trả lời bởi chuyên gia
80300
-
Đã trả lời bởi chuyên gia
73097
-
Đã trả lời bởi chuyên gia
56190
-
Đã trả lời bởi chuyên gia
55568
-
Neymar da Silva Santos Júnior
370 điểm
-
Bi Hay Suy | K12 ♡ ... ? 345 điểm
-
ẩn danh nhé :)
320 điểm
-
Minh nè:))
295 điểm
-
HIHA
240 điểm
-
Caubethongminh
90 điểm
-
Thái Thảo Tạ Thị 85 điểm
-
Huỳnh Tần 80 điểm
-
♡ 𝓘 𝓵𝓸𝓿𝓮 𝔂𝓸𝓾 ♡
75 điểm
-
kbtdatten
75 điểm
-
Kiện Quân Vương (o゜▽゜)o☆
70 điểm
-
chocopai
65 điểm
Rút gọn
Bài viết mới nhất Lớp 12
-
4 năm trước10799
-
5 năm trước8311
-
5 năm trước8226
-
5 năm trước8375
-
5 năm trước9206
