Question

tính tích t= 2*4*6*...*n , nếu n lẻ thì tính đến n-1

Answer 1

uses crt;

var i,n,s:longint;

begin

clrscr;

readln(n);

s:=1;

for i:=1 to n do 

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

writeln(s);

readln;

end.

Answer 2

Var i,t:integer;

Begin

Write('Nhap n = ');readln(n);

t:=1;

For i:=1 to n do

If i mod 2 = 0 then t:=t*i;

Write('t = ',t);

Rradln;

End.