Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Подсчёт количества целочисленных точек внутри круга радиуса 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 ); // Второй способ: count := 0; for i := 0 to r do for j := 1 to r do if j * j + i * i <= r * r then count := count + 1; writeln (count * 4 + 1 ); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Calcular digitos de un numero (hasta 4 digitos)
digits_count
Huong11a2@
bbbrandomchar_0.1
Сумма пар чисел кратных и некратных 11 с дельтой
считалочка05
Pokemon2
power of a number
x=2;n=3
Fibonasi
Please log in to post a comment.