Cho ba số nguyên dương a, b, c không vượt quá 10 4 và a ≤ b ≤ c
Dữ liệu: Vào từ tệp văn bản Cau1.INP chứa 3 số a, b, c
Kết quả: Ghi ra tệp văn bản Cau1.OUT
Dòng 1: Gồm số các số chia hết cho a trong đoạn b đến c
Dòng 2: Số chữ số của tổng từ b đến c.
Dòng 3: Là số 1 nếu a, b, c nguyên tố cùng nhau từng đôi một; số 0 nếu không
phải.
giúp mình phát lập trihf pascal nha
Program HOC24;
const fi='Cau1.INP';
fo='Cau2.OUT';
var i,a,b,c,t,d: integer;
f: text;
function ucln(x,y: integer): integer;
var t: integer;
begin
while y<>0 do
begin
t:= x mod y;
x:=y;
y:=t;
end;
ucln:=x;
end;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,b,c);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
for i:=b to c do
begin
if i mod a=0 then write(f,i,' ');
t:=t+i;
end;
writeln(f);
while t<>0 do
begin
t:=t div 10;
inc(d);
end;
writeln(f,d);
if ucln(a,b,c)=1 then write(f,1) else write(f,0);
close(f);
end;
begin
ip;
out;
end.
