Какой результат будет после выполнения следующей программы?
var s,d : real;
i : integer;
begin
s:=0
for i:=1 to 49 do
begin
d:=i*(i+1);
s:=s+1/d;
end;
writeln('S=',s);
end.
A)S=0,02 B)S=0,98 C)S=0,0002 D)S=1
Помогите очень срочно!!!!!!!!
var s,d : real;
i : integer;
begin
s:=0
for i:=1 to 49 do
begin
d:=i*(i+1);
s:=s+1/d;
end;
writeln('S=',s);
end.
A)S=0,02 B)S=0,98 C)S=0,0002 D)S=1
Помогите очень срочно!!!!!!!!
More Questions From This User See All