Cho tệp INPUT.INP có chứa 2 nguyên tố a,b. Viết chương trình đọc dữ liệu từ tệp INPUT.INP và ghi vào tệp OUTPUT. OUT bội chung nhỏ nhất của 2 số nguyên này
2 câu trả lời
uses crt;
var f:text;
a,b,x,y:longint;
begin
assign(f,'INPUT.INP');reset(f);
read(f,a,b);
close(f);
assign(f,'OUTPUT.OUT');rewrite(f);
x:=a;y:=b;
while x<>y do
begin
if x>y then dec(x,y) else dec(y,x);
end;
write(f,a*b div x);
close(f);
end.
program BCNN;
var f,g:text;
a,b,bc:integer;
begin
Assign(f,'INPUT.INP'); reset(f);
Assign(g,'OUTPUT.OUT'); rewrite(g);
readln(f,a,b);
bc:=a*b;
while a<>b do
if a>b then a:=a-b else b:=b-a;
bc:=bc div a;
write(g,bc);
close(f); close(g);
end.
