Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  2018
Language: C/C++
Code:
uses crt;
var i, j, x, y, n: integer;
r: real;
begin
write (' n=');
readln (n);
x:=0;
y:=0;
r:=(2*n-1)/(2*n)*n;
for i:=1 to n-1 do
for j:= 1 to n-1 do
begin
if sqr(i)+sqr(j) <= sqr(r) then x:=x+1;
if sqr(i)+sqr(j) > sqr(r) then y:=y+1;
end;
writeln ('клеток полностью умещается внутри x =',4*x);
writeln ('Через сколько клеток доски проходить данная окружность y=',4*(n*n-x-y));
end.
Comments: