Viết chương trình tính tổng 1/a +1/(a+1)+…+1/(a+200)

0 bình luận về “Viết chương trình tính tổng 1/a +1/(a+1)+…+1/(a+200)”

1. uses crt;

   var a,i:longint;

   tong:real;

   begin

   clrscr;

   write(‘Nhap a=’);readln(a);

   tong:=0;

   for i:=1 to 200 do tong:=tong+(1/a+i);

   writeln(tong:0:5);

   readln;

   end.

   Bình luận