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

Olimpiade Sains Kota (OSK) 2007 - Komputer , Nomor 37 - 38

Deskripsi untuk soal nomor 37 - 38

function apaini(a: integer; b: integer): integer;
var 
    x, y, r: integer;
begin
    x := a;
    y := b;
    while (y <> 0) do
    begin
        r := x mod y;
        x := y;
        y := r;
    end;
    apaini := x;
end;

 

37

Jika fungsi tsb dipanggil dengan “writeln(apaini(414, 662));” berapakah yang dicetaknya?
(A) 1
(B) 8
(C) 26
(D) 414
(E) 14

38

Jika fungsi tsb dipanggil dengan “writeln(apaini(12345, 54321));” berapakah yang dicetaknya?
(A) 2
(B) 3
(C) 13
(D) 7
(E) 11