Question

viết chương trình tính tổng, tích bằng câu lệnh while .. do

A=5.6.7...40

B=15+16+17+...+170

C=(-20)+(-19)+(-18)+...+50

D=1+\(\frac{1}{2}\)+\(\frac{1}{3}\)+...+\(\frac{1}{n}\)

Answer 1

uses crt;

var a,b,c,d:real;

i,j,n:integer;

begin

clrscr;

a:=1;

i:=5;

while i<=40 do

begin

a:=a*i;

i:=i+1;

end;

writeln('A=',a:0:0);

b:=0;

i:=15;

while i<=170 do

begin

b:=b+i;

inc(i);

end;

writeln('B=',b:0:0);

j:=-20;

c:=0;

while j<=50 do

begin

c:=c+j;

inc(j);

end;

writeln('C=',c:0:0);

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

d:=0;

i:=1;

while i<=n do

begin

d:=d+1/i;

inc(i);

end;

writeln('D=',d:4:2);

readln;

end.