//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) var x,xn,i,j:integer; s:real; begin readln(x); i:=1; while i<=11 do begin xn:=1; for j:=1 to i do xn:=xn*x; s:=s+xn/i; i:=i+2; end; writeln(s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
