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 then tong:=tong + 1
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 then tong:=tong + 1
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é!