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

[mtusi]

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

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

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

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

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


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

[mithquessir]

2.

Код

uses crt;
const
    n = 10;
    m = 9;
var
    a:array[1..n,1..m] of integer;
    i,j,x,x1:integer;
begin
    randomize;
    clrscr;
    for i := 1 to n do
    begin
         WriteLn;
         WriteLn;
         for j := 1 to m do
         begin
              a[i,j] := random(10);
              Write(a[i,j]:2);
         end;
    end;
    WriteLn;
    for j := 1 to m do
    for i := 1 to n div 2 do
    begin
         x := a[i,j];
         a[i,j] := a[n-i+1,j];
         a[n-i+1,j] := x;
    end;
    for i := 1 to n do
    begin
         WriteLn;
         WriteLn;
         for j := 1 to m do
         begin
              Write(a[i,j]:2);
         end;
    end;
end.

Сообщение отредактировано: mithquessir - 8.12.2004 17:25