Tham Gia Group Dành Cho 2K11 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí
TN;
crt;
fi='TN.INP' ;
fo='TN.OUT';
f1, f2: text;
x1,x2,a1,a2: integer;
BCNN (m, n:integer): integer;
t:integer;
BCNN:=mn;
Repeat
t:=m mod n;
m:=n;
n:=t;
Until
t=0;
BCNN:= BCNN div m;
Program
uses
const
Var
Function
Var
Begin
End;
Rogin
Begin
End;