Question

求Pascal编程题目1+3+5+....n！！！！！！！！！！！

N为奇数，且大于等于1小于等于9999···········
求哪位高手帮帮忙啊！！！
我感激万分················

Answer 1

var i,s,n:longint;
begin
readln(n);
for i:=1 to n do
if odd(i) then s:=s+i;
writeln(s);
end.
临时手写的，odd的意思是判断是否是奇数。

Answer 2

program work;
var
ans,n:longint;
begin
readln(n);
ans:=((1+n)*(n+1)div 2)div 2;
writeln(ans);
end.
这用的是等差数列求和公式
program work2;
var
i,ans,n:longint;
begin
readln(n);
ans:=0;
t:=1;
for i:=1 to (n+1) div 2 do
begin
ans:=ans+t;
t:=t+2;
end;
writeln(ans);
end.
这用的是for循环累加

Answer 3

#include<iostream>
using namespace std;
int main()
{
int i,n,sum=0;
cout<<"请输入奇数N:";
cin>>n;
for(i=1;i<=n;i+=2)
sum+=i;
cout<<sum<<endl;

return 0;
}
就这么咯.

Answer 4

var
n,i:integer;
ans:longint; //如果不够大在fp下可以用int64
begin
readln(n);
for i:=1 to ((n+1) shr 1) do begin
ans:=ans+(i*2-1);
end;
writeln(ans);
end.