Yêu Toán nhất
Bạn ơi, Toán học là gì?
Đó là thủ thuật, đó là tinh khôn!
...
Nay Toán yêu của ta có thêm Tin cộng lực
Dù yêu Tin, ta vẫn yêu Toán nhất trên đời!
Hà Nội, 30/7/2007
Chào bạn! Rất vui vì bạn đã vào thăm blog của tôi: -)
program Tim_USCLN_Thuat_Toan_Euclide; uses crt; var a,b,c:longint; begin clrscr; writeln('Vao 2 so nguyen a,b de may tinh USCLN(a,b)'); repeat write('a,b='); readln(a,b); a:=abs(a); {Tu day a>=0} b:=abs(b); {Tu day a>=0} {Neu a =b} if a begin c:=a; a:=b; b:=c; end; while b>0 do begin c:=a mod b; {Cho c la so du khi chia a cho b} a:=b; b:=c; end; {Thoat khoi vong lap khi b=0. Khi do USCLN = a} writeln('uscln(a,b)=',a); until readkey=#27 {Lap doan viec tren cho den khi go phim Esc} end.
