Developing.ru

Здравствуйте, кто поможет с задачкой?
300р. срок: неделя
условие

там три задачки. которую?

всё три если можно)

Можно...
сделаем.

1.
[syntax=Delphi]
var m,i:integer;
y,x:double;
Function Fakt(b:integer):integer; {рекурсивная процедура вычисления факториала}
begin
If b=1 then fakt:= 1
else Fakt:=b*Fakt(b-1)

end;
Function El(n:integer): real; {рекурсивная процедура вычисления суммы элементов}
begin
If n>=2 then El:=(exp(n*Ln(x))/Fakt(n))
end;
Begin
writeln('Введите предел');
Readln(m);
writeln('Введите X');
Readln(X);
For i:=2 to m do begin
if odd(i)=true then Y:=Y-El(i)
else Y:=Y+El(i)
end;
Writeln('Результат:',Y:5:8);
readln;
End.
[/syntax]
2+3
[syntax=Delphi]
Const Z=100;
Q=200;
Var A:array [1..z,1..z] of integer;
j,i,k,l,m,n,p:integer;
t:longint;
procedure Zapoln(W:INTEGER); {заполнение массива случайными числами}
begin
randomize;
for i:=1 to w do begin
For j:=1 to w do begin
a[i,j]:=random(Q)-55;
write(a[i,j]:5)
end;
writeln;
end
end;
procedure Sort(e,w:integer);{перевод строки в одноммерный массив и сортировка}
var b:array[1..z]of integer;
begin
for i:=1 to w do b:=a[e,i];
k:=0;
for i:=2 to w do
begin
m:=w;
For J:=m downto i do
begin
k:=k+1;
if b[j-1] < b[j] then
begin
L:=b[j-1];
b[j-1]:=b[j];
b[j]:=l;
end;
end;
end;
writeln('4 максимальных элемента', e:3,'-ой строки равны:');
for i:=1 to 4 do write(b:4);
end;
procedure proizved(w:integer);
begin
t:=1;
for i:=1 to w do
for j:=1 to w do
begin
if i+j>w+1 then
begin
if (a[i,j]>0) and ((a[i,j] mod 2)=0) then
t:=t*a[i,j];
end;
end;
writeln;
writeln('Произведение равно',t:9);
end;
Begin
writeln('Введите размерность массива');
readln(n);
zapoln(n);
Writeln('Введите номер строки');
readln(p);
Sort(p,n);
Proizved(n);
readln;
End.
[/syntax]

kirillik_mod, в следующий раз потрудитесь как-нибудь представить условие в читабельном виде. Файл на файлообменнике - это не то.

ну, поскольку прошла халява - то переношу в РМЗ

Да закрывайте тему. Пользователь доволен)