Yuk bantu teman kamu belajar dengan menambahkan soal di Kujawab. Klik disini..

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

41

Diberikan fungsi seperti di bawah ini. Berapakah nilai yang dikembalikan dari pemanggilan fungsi cariNilai(2017,1017)?

function cariNilai(n, x: integer): longint;
var
  i: integer;
  n_now, x_now: integer;
  ans: longint;
begin
  ans := 0;
  n_now := n;
  x_now := x;
  while (n_now > 0) do begin
    ans := ans + x_now;
    x_now := x_now - 1;
    n_now := n_now - 1;
  end;
  cariNilai := ans;
end;