Question

Viết chương trình tính tổng S=\(\frac{10}{11}\)+\(\frac{11}{12}\)+\(\frac{12}{13}\)...+\(\frac{100}{101}\)

Answer 1

Program HOC24;

var i: integer;

s: real;

begin

s:=0;

for i:=10 to 100 do

s:=s+i/(i+1);

write('S=',s:1:2);

readln

end.

Answer 2

uses crt;
var s:real;
a:integer;
begin
clrscr;
a:=10;
while a<=100 do
begin
s:=s+a/(a+1);
inc(a);
end;
writeln('S=',s:4:2);
readln;
end.