Chủ đề:

Bài 10: Cấu trúc lặp

Câu hỏi:

Cho biết kết quả chương trình sau và giải thích

program vidu;
uses crt;
var i:integer;
begin
  clrscr;
  i:=15;
  while i>1 do 
  begin
  If i mod 2 =0 then i:=i div 2 else i:=i*3+1;
  Write(i:5);
  End;
  readln;
end.