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= ',T);

readln;

end.

Học tốt!

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.

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