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

Olimpiade Sains Kota (OSK) 2013 - Komputer , Nomor 50

50
function tebak_angka(x,y: integer): integer;
begin
  if x < 5 then begin
    case x of
      0: tebak_angka := 1;
      1: tebak_angka := 2;
      2: tebak_angka := 3;
      3: tebak_angka := 4;
      4: tebak_angka := 5;
    end;
  end else if x > y then begin
    tebak_angka := tebak_angka(y,x);
  end else begin
    tebak_angka := tebak_angka(x, y-(x mod 5)-1);
  end;
end;

Apakah outputnya jika perintah writeln(tebak_angka(18,30)) dipanggil?
A. 1
B. 2
C. 3
D. 4
E. 5