hãy sửa lại thành chương trình hoàn chỉnh: use crt; var i,n :integer tong : longint begin clrscr; i=0, tong :=0; while i:=10 do begin if (i mod 4)=0

Program Bt;

Use crt;

Var i,n :integer;

tong : longint;

Begin

Clrscr;

Write(‘nhap so n’); readln(n);

i:=n;   tong :=0;

While i:=10 do

If i mod 4=0 Then tong:=tong + 1;

End;

Writeln(tong:3);

Readln;

End.

Mình làm theo hiểu biết nếu sai thì thôi nhé!