Chào các bạn! Vì nhiều lý do từ nay Truyen2U chính thức đổi tên là Truyen247.Pro. Mong các bạn tiếp tục ủng hộ truy cập tên miền mới này nhé! Mãi yêu... ♥

hoang bai 12 - pascal

program ucln;

uses crt;

var a,b,c : integer;

begin

clrscr;

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

while a> 0 do

begin

if b>a then

begin

c:=a;

a:=b;

b:=c;

end;

a:=a-b;

end;

writeln('uoc chung lon nhat la ',b);

readln;

end.

Bạn đang đọc truyện trên: Truyen247.Pro

Tags: