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 bình luận về “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”

1. Uses Crt;
   Var i,n : integer
   Tong = Longint;                  `=>`  Tong: longint;
   Begin
   Clrscr;
   i = 0;                     `=>`  i:=0;

   Tong := 0;
   While i:= 0 do          `=>` while i=0 do
   Begin 
   if ( i mod 4 = 0 ) then 
   Tong:= Tong + 1;
   i=i+1;                   `=>`  i:=i+1;
   End.                    `=>`  end;
   Writeln( Tong so chia het cho 4 :, Tong) 

                   `=>`  Writeln(‘Tong so chia het cho 4: ‘,Tong);
   Readln;
   End;                    `=>` end.

   Bình luận