11.10.2012, 22:59
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Цитата:
Сообщение от 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;
За готовым кодом - в раздел "Работа" со всеми вытекающими.
|