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:4:2);
readln;
end.
Học tốt!
Program Hotboy;
Uses crt;
Var S,i : real;
Begin
Clrscr;
S:=0;
For i:= 1 to 10 do S:=S+1/(2*i);
Write('Tong can tim la',S);
Readln
End.
Câu hỏi trong lớp
Xem thêm