Задача номер 8, на Паскале, пожалуйста очень срочно Начинается как y=1+x/2 и пр
Answers & Comments
danulpopov
Var i:integer; ans,x,tmp:real; begin readln(x);ans:=1;tmp := x; for i:= 1 to 5 do begin ans:= ans + x/(2*i); x:= x * tmp; end; Writeln(ans); end.
Answers & Comments
i:integer;
ans,x,tmp:real;
begin
readln(x);ans:=1;tmp := x;
for i:= 1 to 5 do
begin
ans:= ans + x/(2*i);
x:= x * tmp;
end;
Writeln(ans);
end.
Пример:
1
2.14166666666667