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.