Viết chương trình pascal tính S=1*3*5*..*N

0 bình luận về “Viết chương trình pascal tính S=1*3*5*..*N”

1. uese crt;

   var n,s,i: integer;

   begin

   clrscr;

   writeln(‘Nhap N =’); readln(n);  

   s:=1;

   for i:= 1 to n-1 do

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

   writeln(‘s=’,s*n);

   readln;

   end.

   Bình luận

2. uese crt;

   var n,s,i: integer;

   begin

   clrscr;

   writeln(‘Nhap N =’); readln(n);  

   s:=1;

   for i:= 1 to n-1 do

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

   writeln(‘s=’,s*n);

   readln;

   END

   Bình luận