Var i,k,p,r,m,n: integer;
<span>begin
</span><span> write('размер клетки k = '); readln(k);
</span><span> write('радиус круга r = '); readln(r);
</span><span> n:=r div k;
</span><span> if ((r mod k)>0) then inc(n);
</span><span> m:=0; p:=n-1;
</span><span> for i:=1 to n-1 do
</span><span> begin
</span><span> if Ceil(sqrt(r*r-k*i*k*i))<=p*k then
</span><span> begin
</span><span> p:=p-1;
</span><span> m:=m+n-i;
</span><span> end;
</span><span> end;
</span><span> m:=4*n*n-4*m;
</span><span> writeln(m);
</span><span>end.
</span>размер клетки k = 1
<span>радиус круга r = 5
</span><span>88
</span>размер клетки k = 3
<span>радиус круга r = 7
</span><span>32
</span>размер клетки k = 4
<span>радиус круга r = 5
</span><span>12
</span>
Const nx=30;var n,m,i,s,k,max,min:integer;
z:array[1..nx] of integer;sr:real;
begin
write('введите n');read(n); max:= -100;min:= 100;
for i:=1 to n do begin
z[i]:= random(25)-15;
if max < z[i] then begin max:= z[i];k:= i;end;
if min > z[i] then begin min:= z[i];m:= i;end;
write(z[i]:4);end;
writeln;
s:= z[k]; z[k]:= z[m]; z[m]:= s;
for i:=1 to n do write(z[i]:4);
writeln;writeln('max = ',max,' k =',k );writeln('min = ',min,' m =',m );<span>end.</span>
1) напиши тэги
2) добавь информации: "СЛАВА К.П.С.С.! СЛАВА СТАЛИНУ!
3) СОХРАНЯЕШЬ
4) открываешь через браузер
мне в своё время помогло.
А если преподу не понравится, обвини его в нацизме.)))
var
n, i, k, a: integer;
begin
readln(n);
k := 0;
for i := 1 to n do
begin
readln(a);
if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k := k + 1;
end;
writeln(k);
end.