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

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

44

Diberikan program di bawah ini. Apa output dari program tersebut apabila diberikan input (secara berurutan) yaitu 1000 dan 2

function apaini(x : integer) : integer;
var
  ans, i : integer;
begin
  ans := 0;
  i := 1;
  while (i <= x) do begin
    if (x mod i = 0) then ans := ans + 1;
    i := i + 1;
  end;
  apaini := ans;
end;

var 
  i : integer;
  N : integer;
  x : integer;
  ans : integer;
begin
  readln(N, x);
  ans := 0;
  for i := 1 to N do begin
    if (apaini(i) mod x = 0) then
      ans := ans + 1;
  end;

  writeln(ans);
end.