Bài 2. Mạng thông tin toàn cầu Internet

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Hoàng Dũng

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

Minh Lệ
8 tháng 10 2020 lúc 15:06

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.


Các câu hỏi tương tự
Taa Chan
Xem chi tiết
hoangf tuans tu
Xem chi tiết
Katori Bảo Bảo
Xem chi tiết
Susu
Xem chi tiết
Park Na Eun
Xem chi tiết
Phong Nguyễn Trần
Xem chi tiết
Nguyễn Thị Ngọc Quỳnh
Xem chi tiết
Võ Thị Thanh Hương
Xem chi tiết
Võ Thị Thanh Hương
Xem chi tiết