1) дано натуральное число n. вычислить: s=1/3²+1/5²+1/7²++1/(2n+1)² ! ! 2) дана точка с координатами (x, y), определите, принадлежит ли точка осям координат.

Код Pascal:

1)

Var
   S:real;
   n:integer;
Begin
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
    S:=S+1/Sqr(2*n+1);
WriteLn('S = ',S);
End.

2)

Var x,y:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ');
ReadLn(y);
if (x = 0)and(y <> 0) then WriteLn('Ось абсцисс')
else if (y = 0)and(x <> 0) then WriteLn('Ось ординат')
     else if (x = 0)and(y = 0) then WriteLn('Начало координат')
          else WriteLn('(',x,',',y,') не принадлежит осям координат')
End.

1. "Школьное решение"

function f(n:integer):real;
var
  p:real;
  i:integer;
begin
  p:=1;
  for i:=1 to n do p:=p*i;
  f:=p
end;

var
  x,y,z:integer;
 
begin
  Write('Введите x,y,z через пробел: ');
  Read(x,y,z);
  Writeln((f(x)+f(y))*f(z))
end.

Примеры
Введите x,y,z через пробел: 8 12 5
57485030400

Введите x,y,z через пробел: 23 15 41
8.64815278005251E+71

2. Современное решение

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var f:integer->BigIinteger:=n->1.To(n).Aggregate(BigInteger(1),(x,y)->x*y);
  var (x,y,z):=ReadInteger3('Введите x,y,z через пробел:');
  Writeln((f(x)+f(y))*f(z))
end.

Примеры
Введите x,y,z через пробел: 8 12 5
57485030400

Введите x,y,z через пробел: 23 15 41
864815278005250908694716268480895614135710289321049211273216000000000000

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrReal(10);
  Write('В строку: '); a.Println;
  Writeln('В столбец:');  a.PrintLines
end.

Пример
7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1 -6.3
В строку: 7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1 -6.3
В столбец:
7.6
-4.4
-7.2
-4.4
2.2
-3.1
9.6
8.9
-7.1
-6.3



begin
  var a:=ReadMatrReal(3,3); a.Println(7,2); Writeln;
  a.Transform(t->2*t); a.Println(7,2)
end.

Пример
7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1
   7.60  -4.40  -7.20
  -4.40   2.20  -3.10
   9.60   8.90  -7.10

  15.20  -8.80 -14.40
  -8.80   4.40  -6.20
  19.20  17.80 -14.20