Tin học Viết chương trình giá trị biểu thức S S=1+1/1.2+1/2.3+…+1/N(N+1) 09/08/2021 By Savannah Viết chương trình giá trị biểu thức S S=1+1/1.2+1/2.3+…+1/N(N+1)
uses crt; var i,n:integer;s:real; begin clrscr; readln(n); s:=1 for i:=1 to n do s:=s+1/(i*(i+1); write(s:10:2); readln end. Trả lời
program ct; uses crt; var S:real; n,i:integer; begin clrscr; write(‘nhap n:=’);readln(n); S:=0; for i:=1 to n do S:=S+1/i*(i+1); writeln(‘S:=’,S); readln end. Trả lời
uses crt;
var i,n:integer;s:real;
begin
clrscr;
readln(n);
s:=1
for i:=1 to n do s:=s+1/(i*(i+1);
write(s:10:2);
readln
end.
program ct;
uses crt;
var S:real;
n,i:integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
S:=0;
for i:=1 to n do S:=S+1/i*(i+1);
writeln(‘S:=’,S);
readln
end.