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

Olimpiade Sains Provinsi (OSP) 2017 - Komputer , Nomor 42

42

Diberikan fungsi seperti di bawah ini. Berapakah nilai dari f(8, 9, 4, 5, 6, 10000)?

function f (a, b , pa, pb, pab, n: longint): longint;
var
  total: long int;
  i: long int;
begin
  i := 0;
  total := 0;
  while (total < n) do
  begin
    i := i + 1;
    if (i mod a = 0) and (i mod b = 0) then
      total := total + pab
    else if i mod a = 0 then
      total := total + pa
    else if i mod b = 0 then
      total := total + pb;
  end;
  f := i;
end;