Question

Answer 1

a: uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 70 do s:=s+i;

write(s);

readln;

end.

b: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=1;

for i:=1 to 80 do

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

write(s);

readln;

end.

Answer 2

Var i,s:integer;

Begin

For i:=1 to 70 do s:=s+i;

Write('S = 1 + 2 + 3 + 4 + 5 + ... + 70 = ',s);

Readln

End.

-------------------

Var i,s:integer;

Begin

s:=1;

For i:=1 to 40 do

s:=s + 2*i;

Write('S = 1 + 2 + 4 + 6 + ... + 80 = ',s);

Readln;

End.