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