viết chương trình tính tổng: T =$\frac{4}{5}$ +$\frac{5}{6}$+... $\frac{98}{99}$ +$\frac{99}{100}$ Để viết chương trình tính tổng T. Ta có thể sử dụng lệnh lặp với số lần lặp cho trước for.......do
2 câu trả lời
Program Hotboy;
Uses crt;
Var i: byte;
s: real;
Begin
Clrscr;
S:=0;
For i:=4 to 99 do
S:=S+i/(i+1);
Write('Tong T can tim la',S:3:6);
Readln
End.
program oken;
uses crt;
var i: integer;
s: real;
begin
clrscr;
s:=0;
for i:=4 to 99 do
s:=s + i/(i+1);
writeln('Tong S: ',s:0:3);
readln;
end.