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

Olimpiade Sains Provinsi (OSP) 2013 - Komputer , Nomor 34

34

Perhatikan potongan program di bawah ini!

var
 T:array[1..13] of integer = (32, 6, 12, 64, 68, 100,
214, 120, 30, 80, 24, 22, 88);
function q(c,d:integer):integer;
var
 e:integer;
begin
 if (d=0) then q:=c else
 begin
 e:=c mod d;
 q:=q(d,e);
 end;
end;
function p(a,b:integer):integer;
var
 i:integer;
begin
 p:=T[a];
 for i:=a to b do
 begin
 p:=q(p,T[i]);
 end
end;
begin
 writeln(p(1,13));
end.

Berapakah output dari program di atas?