Question

Viết chuong trình con: Nhập từ bàn phím 2 số nguyên a,b. Tìm BCNN(a,b) và ghi kết quả ra 1 tệp văn bản.

Mọi người giúp e với ạ. E đang cần gấp

Answer 1

Program HOC24;

var a,bcnn,b: integer;

f: text;

function bcnn(x,y: integer): integer;

var tg: integer;

t: longint;

procedure out;

begin

assign(f,fo);

rewrite(f);

write(f,bcnn(a,b));

close(f);

end;

begin

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

out;

readln

end.

Answer 2

uses crt;

const f='bcnn.out';

var f1:text;

a,b,i,bcnn:longint;

begin

clrscr;

assign(f1,f); rewrite(f1);

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

bcnn:=a*b;

for i:=a*b downto 1 do

if (i mod a=0) and (i mod b=0) then

begin

if bcnn>i then bcnn:=i;

end;

writeln(f1,bcnn);

close(f1);

readln;

end.