Viết chương trình tìm Ước chung lớn nhất của a và b bằng cách trừ (-).
Mng giúp mình vs ạ!
0 bình luận về “Viết chương trình tìm Ước chung lớn nhất của a và b bằng cách trừ (-). Mng giúp mình vs ạ!”
program phuongt; uses crt; var a, b: integer; begin clrscr; write(‘Nhap a = ‘); readln(a); write(‘Nhap b = ‘); readln(b); while a<>b do begin if a>b then a:=a-b else b:=b-a; end; write(‘USCLN = ‘, a); readln end.
program phuongt;
uses crt;
var a, b: integer;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
write(‘Nhap b = ‘); readln(b);
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
write(‘USCLN = ‘, a);
readln
end.
bn xem hình nha