Question

Viết chương trình :

Cho file ƯCLN.inp

Dòng 1 : chứa 2 số nguyên a,b

Dòng 2: chứa 2 số nguyên c,d

Dòng 3: chứa 2 số nguyên e, f

Yêu cầu: - đọc file

- Tính tổng ƯCLN của ƯCLN (a,b)+ ƯCLN(c,d)+ƯCLN(e,f)

- ghi kết quả vào file ƯCLN.ou

*** ( Mọi người giúp e với e đag cần gấp ạ . )

Answer 1

Program HOC24;

const fi='UCLN.inp';

fo='UCLN.ou';

var a,b,c,d,e,f: integer;

t: longint;

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

var tg: integer;

begin

while y<>0 do

begin

tg:=x mod y;

x:=y;

y:=tg;

end;

ucln:=x;

end;

f: text;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,a,b);

readln(f,c,d);

readln(f,e,f);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

write(f,ucln(a,b)+ucln(c,d)+ucln(e,f));

close(f);

end;

begin

ip;

out;

end.