Question

Viết chương trình tích
a. B=10*11*12....*29*30
b . C= 50+51+52+...+100
c.D = (-50)+(-49)+(-48)+...+50
d. E=1/1*3+1/2*4+1/3*5+...+1/n*(n+2)

Answer 1

a)

uses crt;
var b:real;

i:integer;
begin
clrscr;
i:=10;
b:=1;
while i<=30 do
begin
b:=b*i;
i:=i+1;
end;
writeln('B=',b:0:0);

readln;

end.

b) uses crt;
var c,j:integer;
begin
clrscr;
j:=50;
c:=0;
while j<=100 do
begin
c:=c+j;
j:=j+1;
end;
writeln('C=',c);

readln;

end.

c) uses crt;

var i,d:integer;

begin

clrscr;

i:=-50;

d:=0;

while i<=50 do

begin

d:=d+i;

inc(i);

end;

writeln('D=',d);

readln;

end.

d) uses crt;

var n,i:integer;

e:real;

begin

clrscr;

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

e:=0;

for i:=1 to n do

e:=e+1/(i*(i+2));

writeln('E=',e:4:2);

readln;

end.