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
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
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.
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.