[Newel]

Пожалуйста помогите решить три задачи, очень срочно, нужна к пятнице.

1)Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Найти разность между суммой четных и нечетных значений.

2)Дано вещественное число x и натуральное число n. Вычислить (x-2)(x-4)...(x-2n)/(x-1)(x-3)...(x-2n-1).

3)Напишите процедуру сортировки строк в обратном алфавитном порядке.

Заранее благодарен.

[YVitaliy]

В Код на шару или выкладывай свои наработки, что не получается.

[lmikle]

Сообщение от YVitaliy

В Код на шару или выкладывай свои наработки, что не получается.

Или в "Работа".

PS.
1)

Код:

var
  I :  Integer;
  A : Array Of Integer;
  S_odd, S_even : Integer;
begin
  S_odd := 0;
  S_even := 0;
  For I := Low(A) To High(A) Do
    If A[i] mod 2 = 1 Then S_odd := S_odd + A[i] Else S_even := S_even + A[i];
  WriteLn('Sum of odd numbers = ',S_odd);
  WriteLn('Sum of even numbers = ',S_even);
end;

2)

Код:

var
  X : Integer;
  M_up : Double;
  M_dn : Double;
begin
  M_up := 1;
  M_dn := 1;
  For I := 1 To N Do
    If I mod 2 = 1 Then M_dn := M_dn*(X-I) Else M_up := M_up*(X-I);
  Writeln('Result = ',M_up/M_dn);
end;

3)

Код:

var
  A : Array Of String;
  I, J : Integer;
  Buf : String;
begin
  For I := Low(A) To High(A)-1 Do
    For J := I + 1 To High(A) Do
      If A[J]>A[i] Then
        Begin
          Buf := A[J];
          A[J] := A[i];
          A[i] := Buf;
        End;
  For I := Low(A) To High(A) Do
    WriteLn(A[i]);
end;

За готовым кодом - в раздел "Работа" со всеми вытекающими.