Viết chương trình tính tổng T = 1+ 1/ 2×2 + 1/ 3×3 + 1/ 4×4 + -..1/ 10×10

0 bình luận về “Viết chương trình tính tổng T = 1+ 1/ 2×2 + 1/ 3×3 + 1/ 4×4 + -..1/ 10×10”

1. program tong;

   uses crt;

   var i:integer;

         T:real;

   begin clrscr;

        T:=0;

      for i:=1 to 10 do

        T:=T+1/i*i;

      write(‘Tong T= ‘,T:4:2);

   readln;

   end.

   Học tốt!

   Bình luận

2. program tinhtong;

   uses crt;

   var i:integer;

         t:real;

   begin clrscr;

        t:=0;

      for i:=1 to 10 do

        t:=t+1/i*i;

      write(‘Tong T= ‘,t:4:2);

   readln;

   end.

   Bình luận