Trong cuộc thi giải toán qua mạng internet mỗi học sinh đều có số điểm tích lũy riêng của mình. Số điểm tích lũy của mỗi học sinh là một số nguyên dương K (0 &
Trong cuộc thi giải toán qua mạng internet mỗi học sinh đều có số điểm tích lũy riêng của mình. Số điểm tích lũy của mỗi học sinh là một số nguyên dương K (0 < K 2*10 mũ 9 ). Đội tuyển của trường THCS Tài Năng có N học sinh tham gia dự thi (2 N 100). Tại buổi gặp mặt trước kỳ thi cấp tỉnh, thầy hiệu trưởng quyết định thưởng cho các học sinh trong đội tuyển Q triệu đồng, biết rằng điểm tích lũy của mỗi học sinh đều chia hết cho Q. Yêu cầu: Hãy tìm số nguyên dương Q lớn nhất. Dữ liệu vào: Cho trong file văn bản PT.INP có cấu trúc như sau: - Dòng 1: Ghi số nguyên dương N là số lượng học sinh. - Dòng 2: Ghi N số nguyên dương lần lượt là điểm tích lũy của N học sinh, các số được ghi cách nhau ít nhất một dấu cách. Dữ liệu ra: Ghi ra file văn bản PT.OUT theo cấu trúc như sau: - Dòng 1: Ghi số nguyên dương Q tìm được. Ví dụ: PT.INP PT.OUT 5 3 15 24 45 36 27
Lời giải 1 :
uses crt;
var fi,fo: text;
n,i,ucln: integer;
a: array[1..32000] of integer;
function uc(a,b: integer): integer;
begin
while a<>b do if a>b then a:=a-b else b:=b-a;
uc:=b;
end;
begin
assign(fi,'PT.INP'); reset(fi);
assign(fo,'PT.OUT'); rewrite(fo);
readln(fi,n);
for i:=1 to n do read(fi,a[i]);
ucln:=uc(a[1],a[2]);
if n>=3 then for i:=3 to n do ucln:=uc(ucln,a[i]);
write(fo,ucln);
close(fi);
close(fo);
end.
Thảo luận
Lời giải 2 :
uses crt;
var v,r:text;
n,i,u:integer;
a:array[1..100] of integer;
function UC(a,b:integer):integer;
begin
while a<>b do
if a>b then a:=a-b
else b:=b-a;
uc:=a;
end;
begin
clrscr;
assign(v,'PT.INP');
reset(v);
readln(v,n);
for i:=1 to n do read(v,a[i]);
assign(r,'PT.OUT');
rewrite(r);
u:=UC(a[1],a[2]);
if n>=3 then
for i:=3 to n do
u:=UC(u,a[i]);
write(r,u);
close(r);
end.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK