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

Olimpiade Sains Provinsi (OSP) 2018 - Komputer , Nomor 40

40

Diberikan program di bawah ini. Tuliskan output dari program tersebut. {tuliskan jawaban sesuai dengan
output yang dihasilkan}

function movpush(a, b :integer):integer;
var x: integer;
begin
    while(b <> 0) do
    begin
        x := a and b;
        x := x shl 1;
        a := a xor b;
        b := x;
    end;
    movpush := a
end;

begin
    writeln(movpush(movpush(300, 510), movpush(0, 110)));
end.