Question

.Viết chương trình đếm các số chẵn của N số tự nhiên (N được nhập vào bàn phím).

Answer 1

Var n , i , d : integer;

Begin

write ('n=') ; read (n);

d:=0;

For i:=1 to n do

If i mod 2 = 0 then d:= d+1;

Write (d);

Readln;

End.

Answer 2

program bai1;

var s,i,n,d:longint;

begin

write('N= ');

readln(n);

d:=0;

for i:=1 to n do

ifk i mold 2=0 then d:=d+1;

write('S= ',s);

readln

end.