[Newel]

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

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

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

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

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

[YVitaliy]

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

[lmikle]

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

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

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

PS.
1)

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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)

Код:

1 2 3 4 5 6 7 8 9 10 11

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)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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;

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