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