Olimpiade Sains Provinsi (OSP) 2016 - Komputer, Nomor 46

Question

PRIMA + PRIMA = PRIMA Diberikan N buah bilangan prima berbeda P1, P2, P3, …, PN. Tentukan apakah ada sepasang bilangan prima Pi dan Pj dengan i ? j, yang apabila dijumlahkan akan menjadi bilangan prima juga. Batasan : 2 N 100.000 1 Pk 500.000 untuk k dari 1 hingga N Pk dijamin bilangan prima untuk k dari 1 hingga N Format Input : Baris 1 : Sebuah bilangan N Baris 2 : P1, P2, P3, …, PN Format Output : ADA / TIDAK ADA (sesuai deskripsi di atas) Format Output : ADA / TIDAK ADA (sesuai deskripsi di

Febrilian Kristiawan · Accepted Answer

Idenya adalah mencari twin prime prime1 + prime2 = prime, hanya jika prime1 atau prime2 nilainya 2. Jadi kalau input P1, P2, P3, ..., PN tidak ada yang bernilai 2 maka tidak mungkin ada sepasang bilangan prima yang apabila dijumlahkan akan menjadi bilangan prima juga. Jika ada Px yang bernilai 2, lalu cek (P1 + 2), (P2 + 2), (P3 + 2), ..., (PN + 2) apakah ada yang prima atau bukan. Jika ada outputkan ADA , jika tidak output TIDAK ADA . Ini kode saya bikin silahkan di otak atik sendiri biar lebih

Fachri Misykatul Anwar · Answer

function prima(x:longint) :boolean; var i:longint; prime:boolean; begin prime:=true; if (X =1) then begin prime:=false; end; for i:=2 to X-1 do begin if (X mod i) = 0 then begin prime:=false; end; end; prima:=prime; end; var i,j,k,x,y,z,n,b:longint; a:array[1..100000] of longint; adatidak:boolean; begin readln(n); j:=1; adatidak:=false; for i:=1 to n do begin read(x); if (prima(x)) then begin a[j] := x; inc(j); end; end; for i:=1 to j-1 do begin for k:=1 to j-1 do begin if (k i) then begin if (p

Taufik Pragusga · Answer

#include iostream using namespace std; int main(){ bool cek2,primes[500005]; int n,j,ans,max; cek2=false; ans=0; max=0; cin n; int arr[n+1]; for(int i=1;i =n;i++){ cin arr[i]; if(arr[i]==2){ cek2=true; } if(arr[i] =max){ max=arr[i]; } } if(cek2==false){ cout TIDAK ADA endl; return 0; } for(int i=2;i =max;i++){ primes[i]=true; } for(int i=2;i =max;i++){ j=i*i; while(j =max){ primes[j]=false; j+=i; } } primes[1]=false; for(int i=1;i =n;i++){ if((arr[i]!=2) (primes[arr[i]+2])){ ans=1; cout ADA endl

James Alvin · Answer

function primeCheck (var x : longint) : boolean; var i : longint; begin i := 2; if (x = 1) then begin primeCheck := False; end else while (sqr(i) = x) do begin if (x mod i = 0) then begin primeCheck := False; break; end else begin primeCheck := True; end; i := i + 1; end; end; var i,N,temp: longint; P: array [1..100000] of longint; ada_ga : boolean; begin readln(N); ada_ga := False; for i := 1 to N do begin read (P[i]); end; for i := 1 to N do begin temp := P[i] + 2; if (primeCheck(temp) = True)

Mukhtada Nasution · Answer

uses crt; var p : array[1..1000] of integer; i,j,n,x,y,z,a,b : integer; begin clrscr; y := 0; z := 0; readln(n); for i := 1 to n do begin readln(p[i]); end; for j := 1 to n do begin for i := 1 to trunc(sqrt(p[i] + p[i+1])) do if ((p[i]+p[i+1]) mod i) = 0 then y := y + 1; if y = 1 then z := z + 1 end; if z 0 then write( ADA ) else if z = 0 then write( TIDAK ADA ); readln; end.

Olimpiade Sains Provinsi (OSP) 2016 - Komputer, Nomor 46

5 jawaban