#include <iostream>
<span>using namespace std;</span>
<span>int main()</span>
{
setlocale(LC_ALL,"");
double R,S;
cout<<"Введите радиус окружности: ";
cin>>R;
S=3.14*R*R;
cout<<"Площадь круга = "<<S<<""<<endl;
return 0;
}
Var n,i: integer;
s:real;
begin
readln(n);
i:=3;
while i<= (2*n+1) do
begin
s:=s+(1/sqr(2*i+1));
i:=i+2
end;
writeln('s= ', s)
end.
Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.