Question

[Văn Chí Vĩ]

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.

Answer 1

[Nguyễn Lê Phước Thịnh]

Chương trình sẽ bị lỗi vì vi i:5 chỉ dành cho số thực, không dành cho số nguyên