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

2 câu trả lời

program ct;

uses crt;

var i:integer;

      t:real;

begin clrscr;

     t:=0;

   for i:=1 to 10 do

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

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

readln;

end.

Học tốt!

uses crt;

var t:real;

      i:integer;

begin clrscr;

     t:=0;

   for i:=1 to 10 do

     t:=t+1/2*i;

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

readln;

end

vote cho mk nhé học tốt !!

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