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

Olimpiade Sains Provinsi (OSP) 2011 - Komputer , Nomor 25

25

Perhatikan potongan program berikut:

hasil := 1;
for i:=3 to 10 do
begin
  if (i mod 2 <> 0) then
  begin
    hasil := hasil*i;
    hasil := hasil*(-1);
  end
  else
    hasil := hasil div 2;

  hasil := hasil*(-1);
end;
writeln(hasil)

Apakah output yang tampil di layar?