viết chương trình tính: a) S=7+8+9+....+150 P=7*8*9*...*50 b) S=(-9)+(-8)+(-7)+...+15 P=(-9)*(-8)*(-7)*....*(-1) c) S= 1+1/2+1/3+1/4+.....+1/n d) A= 1/1*2+1/2*3+1/3*4+.....+1/n(n+1) với n là số tự nhiên được nhập từ bàn phím giúp vs ạ sáng mai mình nộp bài rồi sẽ vote 5sao và tim ạ

b)uses crt;

var i,p,s:integer;

begin

clrscr;

p:=1;s:=0;

for i:=-9 to 15

begin

s:=s+i; 

end;

for i:=-9 to -1 do

begin

p:=p*i;

end;

writeln('s=',s);

writeln('p=',p);

readln; 

end.

c)uses crt;

var i,n,s:integer;

begin

clrscr;

s:=0;

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

for i:=1 to n do

begin

s:=s+1/i;

end;

writeln('s=',s);

readln;

 end.

d)

uses crt;

var i,n,a:integer;

begin

clrscr;

a:=0;

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

for i:=1 to n do

begin

a:=a+1/(n*(n+1));

end;

writeln('a=',a);

readln;

end.

 chúc bn học tốt

^_^