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

function meong(x: longint):integer;
begin
 if (x = 0) then    // Base case, bila x = 0, maka return 0
 meong := 0
 else if (x mod 2 = 1) and ((x div 2) mod 2 = 1) then    // Literally (Jika x mod 4 = 3, maka)
 meong := meong((x div 2) div 2) + 1           // Literraly (x div 4)
 else
 meong := meong(x + 1) + 1;    // Sampai sini udah jelas harusnya. Simulasiin aja.
end;
begin
 writeln(meong(888));
end.

32. Simulasi :

- meong(888) bakal jadi meong(891) + 3
- meong(891) + 3 bakal jadi meong(222) + 4
- meong(222) + 4 bakal jadi meong(223) + 5
- meong(223) + 5 bakal jadi meong(55) + 6
- meong(55) + 6 bakal jadi meong(13) + 7
- meong(13) + 7 bakal jadi meong(15) + 9
- meong(15) + 9 bakal jadi meong(3) + 10
- meong(3) + 10 bakal jadi meong(0) + 11
- meong(0) + 11 bakal jadi 0 + 11 = 11
Kelar, meong(888) = 11
 

Berdasarkan feeling terdalam gw, sepertinya soal ini dapat dicari dengan basis 4. Basis 4 dari 888 ialah 31320. Menurut gw, kita itu harus jadiin 31320 menjadi 44444, per digitnya. Jadi, bisa dicari dengan (4-3) + (4-1) + (4-3) + (4-2) + (4-0) = 11

CMIIW