Răspuns:
am numărat punctele din interiorul sferei, dacă le doreşti şi pe cele situate pe supfafaţa sferică, la if pui semnul <=
Explicație:
program nrPuncteInCerc;
var x,y,z,r,contor:integer;
begin
write('R= '); read(r);
contor:=0;
for x:=-r to r do
for y:=-r to r do
for z:=-r to r do
if (x*x+y*y+z*z<r*r) then contor:=contor+1;
writeln('In sfera de raza ',r,' se contin ',contor,' puncte cu coordonate intregi');
end.