Question

Viết chương trình tìm ước chung lớn nhất của 2 số a và b (a,b là các số nhập từ bàn phím)

P/s: Giúp mk với.

Answer 1

Program UCLN;

uses crt;

var a,b : integer;

begin

write ('nhap so a la ');readln (a);

write ('nhap so b la ');readln (b);

while a < > b do

if a >b then a := a - b else b := b - a ;

write ( ' UCLN la :' , a );

readln

end.

~~~~~~~~~~~~~~~~~~ Chúc bn học tốt ~~~~~~~~~~~~~~~~~

Answer 2

var a,b,min,i,ucln:integer;

begin

write('a=');readln(a);

write('b=');readln(b);

min:=a;

if a>b then min:=b;

for i:=1 to min do

if (a mod i=0) and (b mod i=0) then ucln:=i;

writeln(' uoc chung cua a va b la:',ucln);

readln;

end.

Answer 3

bọn này làm toàn cách trâu bò. Khi tìm UCLN của hai số thì ta nên dùng thuật toán Ơclid để thời gian chạy nhanh hơn và khi test chương trình thì sẽ không bị timeout

Answer 4

var a,b,ucln:int64;
begin
readln(a,b);
ucln:=b mod a;
while ucln<>0 do
begin
ucln:=a mod b;
a:=b;
b:=ucln;end;
ucln:=a;
writeln(ucln);readln;end.