Admin Admin
Tổng số bài gửi : 152 Join date : 23/04/2022 Age : 41 Đến từ : THPT Chuyên Nguyễn Tất Thành - Yên Bái
| Tiêu đề: Phạm Đỗ Thắng Fri Sep 09, 2022 9:09 pm | |
| | |
|
Đỗ Thắng
Tổng số bài gửi : 6 Join date : 09/09/2022
| Tiêu đề: Re: Phạm Đỗ Thắng Fri Sep 09, 2022 9:13 pm | |
| Tổng nguyên tố lớn nhất - Code:
-
const fi='DQBN22.inp'; fo='DQBN22.out'; var a,x:array[-5..100007] of longint; n,i:longint; ma:int64; f,g:text; function prime(i:longint):boolean; var j:longint; begin if i<2 then exit(false); for j:=2 to trunc(sqrt(i)) do if i mod j=0 then exit(false); exit(true); end; procedure xuat; var j:longint;sum:int64; begin sum:=0; for j:=1 to n do if x[j]=1 then sum:=sum+a[j]; if (prime(sum)=true) then begin for j:=1 to n do if x[j]=1 then write(g,a[j],' '); writeln(g); end; end; procedure try(i:longint); var j:longint; begin for j:=0 to 1 do begin x[i]:=j; if i=n then xuat else try(i+1); end; end; begin assign(f,fi);reset(f); assign(g,fo);rewrite(g); readln(f,n); for i:=1 to n do read(f,a[i]); try(1); close(f);close(g); end.
| |
|