Question

1.Viết chương trình dãy số n rồi tìm ra trong dãy số có bao nhiêu số âm, bao nhiêu số dương?

2.Viết chương trình dãy số n rồi tìm ra trong dãy số có bao nhiêu số chẵn, bao nhiêu số lẻ?

Answer 1

1/ Var i,n,sla,sld:integer;

begin

readln(n);

sla:=0; sld:=0;

for i:=1 to n do

if i < 0 then sla:=sl+1;

writeln('so am', sl);

if i > 0 then sld:=sld+1;

writeln(sld);

readln;

end.

Answer 2

2/ Var i,n,sl:integer;

begin

readln(n); sl:=0;

for i := 1 to n do

if i mod 2 <> 0 then sl:=sl+1;

writeln('so le', sl);

readln;

end.