Question

viết chương trình tính tích các số lẻ của 1 dãy số tự nhiên N(N được nhập từ bàn phím)

Answer 1

program tinh_tich_so_le;

var s,i,n:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do

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

write('s= ',s);

readln

end.

Answer 2

uses crt;

var i,n:integer;

s:int64;

begin

clrscr;

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

s:=1;

for i:=1 to n do

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

writeln('tich cac so le trong khoang tu 1 toi ',n,' la: ',s);

readln;

end.

Answer 3

uses crt;

var i,n:integer;

s:int64;

begin

clrscr;

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

s:=1;

for i:=1 to n do

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

writeln('tich cac so le trong khoang tu 1 toi ',n,' la: ',s);

readln;

end.