Odd sums within 100 pascal

vari,ans:integer;

beginans:=0;Initialize.

for i:=1 to 100 do

if odd(i) is a function to find the odd and even, the odd number is true, and the even number is falseinc(ans,i); Statistics.

writeln(ans);Output.

end.

The formula for summing the difference series: (1+99)*50 2=2500

(1) The procedure is as follows:

set talk off

s=0i=1

do while i<=100

s=s+ii=i+2

The enddos result is: 2500

2) The procedure is as follows:

set talk off

s=0i=1

do while i<=100

s=s+ii=i+1

The enddos result is: 5050

var a,b,t:double; n,i:integer;

begina:=1; b:=1;

write(1,' ',1,' ');

n:=5000;

for i:=3to n do

begint:=b;

b:=b+a;

a:=t;write(trunc(b),' ')

end;end.

10,000 is ridiculously high.

I can only output the first 92 items up to double with double.

10,000 or 5,000 entries will probably be beyond the range of 500 high-precision strings, so what do you want to do?

If you have to, you can add the compiler switch yourself.

You write a subfunction first, and then the main function calls summing.

function f=ffib(n)

if n>2

f=ffib(n-1)+ffib(n-2);

elsef=1;

It's easy to write the main function of the sum of end.

Violent? Tree-like arrays? Segment tree? Balance Tree? Please give a specific topic. Not sure what the hell you're asking.

Interval summing? What do you mean?

var n,m,i,k:longint;

beginreadln(n);

m:=0;for i:=1 to n dobeginread(k);

m:=m+k;

end;writeln(m);

end.You're a beginner, right? What this program means is to read a number and add it up to m, which is very simple.

If you don't know it in the future, you can come to me and ask me if I can learn pascal too. Thanks.