Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
число пи с помощью ряда
//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
Please
log in
to post a comment.
Сумма цифр в строке
1
Урок 4 задача 4: решить в целых числах уравнение ax=b
Prova 1
Квартира из уч. Грицановой с местоположением квартиры на этаже
Shuffle number array
test27
08 ariketa
Mengulang kalimat n kali
проверка числа на отсутствие возрастающих и убывающих четвёрок
stackse - search stackoverflow differently
Please log in to post a comment.