Question

Viết chương trình in ra ước chung lớn nhất của 2 số đc nhập từ bàn phím dùng lệnh while do và repeat until?

Answer 1

mình dùng thuật toán euclid để giải bài này nhé

dùng vòng while:

var a,b:byte;

begin

write('nhap 2 so:');readln(a,b);

while a<>b do if a>b then a:=a-b else b:=b-a;

write('uoc chung lon nhat la:',a);

readln;

end.

dùng vòng repeat:

var a,b:byte;

begin

write('nhap 2 so:');readln(a,b);

repeat

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

until a=b;

write('uoc chung lon nhat la:',a);

readln;

end.