Бесконечная сумма, целочисленная матрица,полидром Опции

[mtusi]

завтра у меня рубежка....надо решить задачи решил уже некоторые осталось 3-4 задачи..

одну из них я уже щас почти дорешал , а вот в трех остальных требуется помощь ... очень срочная помощь....
1) дано действительное Х
вычислить приблизительное значение бесконечной суммы с точностью 0.00001

1/x + 1/(3x^3) + 1/(5x^5) + ...
x>1

2)дана целочисленная матрица размера 6*9
найти матрицу, получающуюся из данной - перестановкой строк. 1 с последней, второй с предпоследней и тд.

3)назовем натуральное число полидромом, это такое число, запись которого читается одинкого и с начала и с конца, как например, 4884
найти все, мешьше 100 числа (натуральне), которые, при возведении в квадрат образуют полидром...


ОЧЕНЬ прошу помогите мне.....щас я занят другими..а эти никак не получаются, вы меня очень выручите....

[mtusi]

модераторы удалите мой предыдущий пост)
вот мой вариант..проверьте на грамотность плиз..вроде работает))

Код

Program Matrix;

{$APPTYPE CONSOLE}

Var
S  : Integer;
X  :  Array [1..6, 1..9] Of Integer;
M, N :   Integer;
Q, P :  Integer;
i, j  :   Integer;
Begin
n:=6;
m:=9;
WriteLn ('vvedite massiv');
For i := 1 To N Do
For j := 1 To M Do
Begin
Write ('X[', i: 2, ',', j: 2, ']', ' = ');
Read (X [i, j] );
End;
for p:=3 downto 1 do
begin
for q:=6 downto 4 do
begin
For i := 1 To M Do
Begin
S := X [Q, i];
X [Q, i] := X [P, i];
X [P, i] := S;
End;
end;
end;
WriteLn ('tablica posle perestanovki');
For i := 1 To N Do
Begin
For j := 1 To M Do
Write (X [i, j] : 4);
WriteLn;
End;
ReadLn;
End.