DE KT 2013-2014 Program bai4_nguyento; var a,b:longint; f:text; {------------------------------} Procedure docfile; Begin assign(f,NGUYENTO.INP); reset(f); read(f,a,b); close(f); end; {-----------------------------} Function UCLN(a,b:longint):longint; Begin While ab do If a>b then a:=a-b else b:=b-a; UCLN:=a; end; {-----------------------------} Procedure ghifile; Begin assign(f,NGUYENTO.OUT); rewrite(f); If UCLN(a,b)=1 then write(f,a, va ,b, la 2 so nguyen to cung nhau) else Begin Writeln(f,a, va ,b, khong la 2 so nguyen to cung nhau); writeln(f,UCLN = ,UCLN(a,b)); writeln(f,BCNN = ,(a*b) div UCLN(a,b)); end; close(f); end; Begin docfile; ghifile; end.
Posted on: Thu, 25 Dec 2014 09:40:13 +0000
Trending Topics
Recently Viewed Topics
© 2015