Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Подсчёт количества целочисленных точек внутри круга радиуса r
{ Подсчёт количества целочисленных точек внутри круга радиуса r. } var i, j, r, count : integer; begin readln (r); count := 0; j := 1; for i := 0 to r do begin while i * i + j * j <= r * r do begin count := count + 1; j := j + 1; end; j := 1; end; writeln (count * 4 + 1 ); end.
run
|
edit
|
history
|
help
0
Calculatrice 1.0
пример рекурсивной функции
4 ariketa
Определение стенки с максимальной высотой
practica 2 ejercicio 1
Zadanie 3 в
Задачи к § 66 «Символьные строки» Задача №112336. Замена a-b в последовательности символов.
1
test22
1 25 5