这是程序的代码,帮我制作这个程序的流程图
var n,x,y,k:integer;
begin
write('введите n=');
readln(n);
k:=0;
for x:=-n to n do
for y:=-n to n do
if x*x+y*y<=n*n then
k:=k+1;
writeln('k=',k);
readln;
end.
这是程序的代码,帮我制作这个程序的流程图
var n,x,y,k:integer;
begin
write('введите n=');
readln(n);
k:=0;
for x:=-n to n do
for y:=-n to n do
if x*x+y*y<=n*n then
k:=k+1;
writeln('k=',k);
readln;
end.
这是框图。带走。