Viết chương trình tính tổng T = 1+ 1/ 2x2 + 1/ 3x3 + 1/ 4x4 +...+/ 10x10

2 câu trả lời

program tong;

uses crt;

var T:real;

      i:integer;

begin clrscr;

     T:=0;

   for i:=1 to 10 do

     T:=T+1/i*i;

   write('Tong T la: ',T:4:2);

readln;

end.

Học tốt!

program anhlanguoixau;

uses crt;

var t:real;

      i:integer;

begin clrscr;

     t:=0;

   for i:=1 to 10 do

     t:=t+1/i*i;

   write('Tong T la: ',t);

readln;

end.

Câu hỏi trong lớp Xem thêm
4 lượt xem
2 đáp án
2 giờ trước
3 lượt xem
2 đáp án
2 giờ trước