Olimpiade Sains Provinsi (OSP) 2012 - Komputer , Nomor 45 - 48
Deskripsi untuk soal nomor 45 - 48
Perhatikan potongan program berikut
function func(x:integer):integer;
var
i : integer;
b : boolean;
begin
b:= true;
i := 1;
while b=true do
begin
if (x mod i) <> 0 then
begin
func := i;
b:=false;
end;
inc(i);
end;
end;
45
Tentukan nilai dari func(4620).
46
Tentukan nilai x positif terkecil di mana func(x) = 11.
47
Tentukan bilangan x positif terkecil ke-11 di mana func(x) = 11.
48
Dengan mengasumsikan tipe integer adalah tipe bilangan bulat yang tidak memiliki batasan, berikan sepuluh nilai x positif terkecil di mana tidak ada angka positif y sehingga func(y) = x.
