Bantu temanmu belajar dengan menambahkan soal di Kujawab. Klik disini..

Olimpiade Sains Provinsi (OSP) 2015 - Komputer , Nomor 37 - 38

Deskripsi untuk soal nomor 37 - 38

var
    a : array [1..100000] of longint;
    i, j, n : longint;

begin
     readln(n);
     for i := 1 to n do
         a[i] := 0;
     for i := 2 to n do
     begin
          if (a[i] = 0) then
          begin
               j := i;
               while (j <= n) do
               begin
                    a[j] := a[j] + 1;
                    j := j + i;
               end;
          end;
     end;
end.   
38

Apabila n = 300, berapa nilai i terkecil dimana 1 <= i <= n dan a[i] >= 11?

37

Apabila n = 16, berapa nilai dari elemen array a[9]?