xđtt
tìm UCLN của 2 số nguyên dương
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
KV
6 tháng 5 2023
Var a,b,ta,tb,r,ucln,bcnn:integer;
Begin
Write('a = ');readln(a);
Write('b = ');readln(b);
ta:=a;
tb:=b;
Repeat
r:=ta mod tb;
ta:=tb;
tb:=r;
Until r = 0;
ucln:=ta;
bcnn:=a*b div ucln;
Writeln('UCLN(',a,'; ',b,') la ',ucln);
Write('BCNN(',a,'; ',b,' la ',bcnn);
Readln
End.
TP
0
MT
0
VK
6
VD
23 tháng 3 2016
Vì ƯCLN=6 nên a=6k ,b=6q(k thuộc N ; UCLN(k,q)=1) mà ab=216
-->6k.6q=216
-->k.q=6 mà (k,q)=1
Nếu k=1 thì q=6 -->a=6,b=36
Nếu k=2 thì q=3 -->a=12,b=18
Nếu k=3 thì q=2-->a=18 b=12
Nếu k=6 thì q=2 -->a=36 b=6
2 tháng 1 2017
Vì ƯCLN=6 nên a=6k ,b=6q(k thuộc N ; UCLN(k,q)=1) mà ab=216
-->6k.6q=216
-->k.q=6 mà (k,q)=1
Nếu k=1 thì q=6 -->a=6,b=36
Nếu k=2 thì q=3 -->a=12,b=18
Nếu k=3 thì q=2-->a=18 b=12
Nếu k=6 thì q=2 -->a=36 b=6
L
0
P
1
24 tháng 6 2018
......................?
mik ko biết
mong bn thông cảm
nha ................
Lời giải:
program hotrotinhoc;
var a,b : integer;
Function UCLN(x,y: integer): integer;
var z: integer;
begin
while y<>0 do
begin
z:= x mod y;
x:=y;
y:=z;
end;
ucln:=x;
end;
begin
readln(a);
readln(b);
write(ucln(a,b));
readln
end.