Ответ:
var
k,N:integer;
s:real;
begin
read(N);
for k:=1 to N do
S:=(k+1)/(k*k+1);
writeln(S);
end.
Объяснение:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var
k,N:integer;
s:real;
begin
read(N);
for k:=1 to N do
S:=(k+1)/(k*k+1);
writeln(S);
end.
Объяснение: