1.Viết chương trình tính tích các số chẵn từ 1->n. 2.Viết chương trình tính tích các số lẻ từ 1->n

Đáp án:  

1)

+) for...do

program hotrotinhoc ;

var i,n,tich : integer ;

begin

write('n='); readln(n);

tich:=1;

for i:=1 to n do

if i mod 2=0 then tich:=tich*i;

write('Tich la:',tich);

readln

end.

+) while...do

program hotrotinhoc ;

var n,tich : integer ;

begin

write('n='); readln(n);

tich:=1; i:=0;

while i<=n do

begin

i:=i+2;

tich:=tich*i;

end;

write('Tich la :',tich);

readln

end.

2)

+) for...do

program hotrotinhoc ;

var i,n,tich : integer ;

begin

write('n='); readln(n);

tich:=1;

for i:=1 to n do

if i mod 2<>0 then tich:=tich*i;

write('Tich la:',tich);

readln

end.

+) while...do

program hotrotinhoc ;

var n,tich : integer ;

begin

write('n='); readln(n);

tich:=1; i:=1;

while i<=n do

begin

tich:=tich*i;

i:=i+2;

end;

write('Tich la :',tich);

readln

end.

            bn hc tốt

Bạn tham khảo nhé!

1) Viết chương trình tính tích các số chẵn từ 1 ⇒ n.

Cách 1: for....do...

for...do

program hotrotinhoc ;

var i,n,tich : integer ;

begin

write('n='); readln(n);

tich:=1;

for i:=1 to n do

if i mod 2=0 then tich:=tich*i;

write('Tich la:',tich);

readln

end.

Cách 2: while...do...

while...do

program hotrotinhoc ;

var n,tich : integer ;

begin

write('n='); readln(n);

tich:=1; i:=0;

while i<=n do

begin

i:=i+2;

tich:=tich*i;

end;

write('Tich la :',tich);

readln

end.

2) Viết chương trình tính tích các số lẻ từ 1 ⇒ n.

Cách 1 : for....do...

 for...do

program hotrotinhoc ;

var i,n,tich : integer ;

begin

write('n='); readln(n);

tich:=1;

for i:=1 to n do

if i mod 2<>0 then tich:=tich*i;

write('Tich la:',tich);

readln

end.

Cách 2: while...do...

while...do

program hotrotinhoc ;

var n,tich : integer ;

begin

write('n='); readln(n);

tich:=1; i:=1;

while i<=n do

begin

tich:=tich*i;

i:=i+2;

end;

write('Tich la :',tich);

readln

end.