Question

VCT tìm ước chung của 2 số a,b(pascal)

 

Answer 1

Tham Khảo :

uses crt;

var a,b,i:integer;

begin

clrscr;

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

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

if a<b then

begin

for i:=1 to a do

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

end

else begin

for i:=1 to b do

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

end;

readln;

end.