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

Olimpiade Sains Provinsi (OSP) 2013 - Komputer , Nomor 44 - 45

Deskripsi untuk soal nomor 44 - 45

Perhatikan potongan program berikut!

var x,y:integer;
procedure abc(a:integer;var b:integer);
var c:integer;
begin
 if not((a=0)or(b=0)) then
 if (a>b) then
 begin
 a:=a mod b;
 abc(b,a);
 end
 else
 begin
 b:=b mod a;
 abc(a,b);
 end;
 write(a,' ');
end;
begin
 x:=219; y:=168;
abc(x,y);
end.
44

Apa keluaran yang dihasilkan dari program tersebut?

45

Jika perintah write(a,' '); diubah menjadi write(b,' '); maka keluaran yang dihasilkan menjadi?