hãy chỉ ra lỗi của đoạn ct sau sửa lại thành ct hoàn chỉnh
Uses Crt;
Var i,n : integer
Tong = Longint;
Begin
Clrscr;
i = 0; Tong : = 0;
While i : = 0 do
Begin
if ( i mod 4 = 0 ) then
Tong : = Tong + 1;
i = i + 1;
End.
Writeln( Tong so chia het cho 4 :, Tong)
Readln;
End;
Loga
Sinh Học lớp 12
