i := 0;
while (x>1) do
begin
if (x mod 2 = 1) then
x := 3*x+1
else
x := x div 2;
inc(i);
end;
writeln(i);
Jika x = 13, maka output dari program di atas adalah ....
A. 5
B. 6
C. 7
D. 8
E. 9
Pernah Jago OSK
NGULI IS EVERYTHING YOW
x = 3*13 + 1 = 40 ; i=1
x=40/2 = 20 ; i=2
x=20/2 =10; i=3
x=10/2=5 ;i=4
x=15+1 = 16; i=5
x=16/2=8; i=6
x=8/2=4 ; i=7
x=4/2=2; i=8
x=2/2 =1 ; i =9 //selesai sudah
E.9
Masuk untuk menulis jawaban
i akan naik 1(i=i+1) jika nilai x lebih besar dari 1;
ketika nilai x lebih kecil daripada 1; maka nilai i akan berhenti naik 1, dan tepat di angka 9
E. 9

X=13 mod 2 adalah 1, (13 adalah bilangan ganjil)
maka
i=0
x=3*13+1= 30
inc(i); // nilai i dinaikkan 1
i=1
x=30/2=15
i=2
x=3*15+1=45
dst sampai i=9; dan perulangan terhenti
Pernah Jago OSK
gambarnya ga jelas gan