Question

1. Viết chương trình tính tích các số chẵn từ 1 đến n ( n được nhập từ bàn phím ) bằng 2 cách :

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

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

2. Viết chương trình tính tích các số lẻ từ 1 đến n ( n được nhập từ bàn phím ) bằng 2 cách :

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

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

Answer 1

Lời giải :

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.