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