Bài 3: Ghép số Cay cú vì lần trước không giải được bài toán của Tèo đưa ra. Trạng Tí quyết ăn thua đủ với Tèo bằng cách đấu trí. Lần này nhờ sự trợ giúp của c
Bài 3: Ghép số Cay cú vì lần trước không giải được bài toán của Tèo đưa ra. Trạng Tí quyết ăn thua đủ với Tèo bằng cách đấu trí. Lần này nhờ sự trợ giúp của công nghệ nên Trạng Tí bèn mò lên Google tìm một bài toán cực khó mang hơi thở của tin học để đố Tèo. Bài toán như sau: Cho N số A1, A2, … An khác nhau (0<A<=9). Hãy ghép N số này để được một số là số nguyên tố. Dữ liệu vào: Là file văn bản có tên ghepso.inp có cấu trúc như sau: - Dòng đầu tiên ghi số nguyên N (2<=N<=6) - Dòng tiếp theo ghi N số khác nhau: A1, A2, … An (các số nhập cách trống) Kết quả: Ghi ra file ghepso.out là các số nguyên tố ghép được. Mỗi số ghi trên một dòng và theo thứ tự từ nhỏ đến lớn. Nếu không ghép được số nguyên tố nào thì ghi ra kết quả là -1 Lần này lại đến lượt Tèo vò đầu bứt tai không thể giải nổi bài toán này và đành cầu cứu tới các bạn thi học sinh giỏi môn tin học lớp 9 huyện Thanh Chương. Mong các bạn giải bài này giúp Tèo với nhé. Ví dụ: ghepso.inp ghepso.out 2 1 3 13 31 2 2 4 -1 Giải thích: Test đầu tiên có 2 số (1 3) ta có 2 cách ghép thành số 13 và 31 đều là số nguyên tố. Ở test thứ 2 có 2 số (2 4) ta cũng có 2 cách ghép tạo thành 2 số 24 và 42 nhưng chúng đều không phải số nguyên tố nên có đáp án là -1
Lời giải 1 :
uses crt;
var a: array[0..6] of byte;
i, j, n, cnt, tmp: byte;
function prime(n: byte): boolean;
var i: byte;
begin
if n < 2 then exit(false);
if n mod 2 = 0 then exit(n = 2);
if n mod 3 = 0 then exit(n = 3);
i:=5;
while i * i <= n do begin
if (n mod i = 0) or (n mod (i + 2) = 0) then exit(false);
inc(i, 2);
end;
exit(true);
end;
begin
assign(input, 'ghepso.inp'); reset(input);
assign(output, 'ghepso.out'); rewrite(output);
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
for j:=i+1 to n do
if a[i] > a[j] then begin
tmp:=a[i]; a[i]:=a[j]; a[j]:=tmp;
end;
for i:=1 to n do
for j:=1 to n do begin
if i xor j = 0 then continue;
if prime(a[i] * 10 + a[j]) then begin
writeln(a[i] * 10 + a[j]);
inc(cnt);
end;
end;
if cnt = 0 then writeln(-1);
close(input); close(output);
end.
Thảo luận
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