Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
число пи с помощью ряда
//fpc 3.0.0 program HelloWorld; var i, j, n: int64; var s, k : real; begin n := 100; k := -1; s := 1; for j := 9970 to 10000 do // меньшие ряды не дают точности в 7 знаков после запятой begin n := 100 * j + n; for i := 2 to n do begin s := s + k / (2*i-1); k := -k; end; writeln (n, 4*s:20:15); s := 1; k := -1; end; writeln (pi:20:15); end.
run
|
edit
|
history
|
help
0
practica 9 ejercicio 5
practica 2 ejercicio 8
IPR2
1
Huong11a2@
Banking
Lab2RandomAndAvg
AR sredine
нун
nomer5