кто напишет эти програмки для меня?

[Оксана_В]

решите? ...

[Манжосов Денис :)]

1)Цикл с известным числом повторений.
у=sin2x/1!+sin2x/2!+sin3x/3!+...+sin5x/5!
здесь непонятно. что такое x? Восклицательный знак значит факториал?

program Project1;

{$APPTYPE CONSOLE}
var
  i: byte;
  y: real;
function FacRecursive(n: word): real;
begin
  if n>1 then FacRecursive := n * FacRecursive(n-1)
         else Facrecursive := 1;
end;

begin
  y := 0;
  for i:=1 to 5 do
     y := y + sin(i)/FacRecursive(i);
  WriteLn(y);
 ReadLn;
end.

Если правильно понял

[Манжосов Денис :)]

Вторая задача:

program oksan2;
uses
  crt;
const
  n = 10;
type
  MyArray = array [1..10] of integer;
var
  B, X, Y, Z: longint;
  P: MyArray;

procedure Init(var a: MyArray);
var
  i: byte;
begin
  Randomize;
   for i:=1 to n do
    a[i] := Random(10);
end;

procedure SumX;
var
  i: byte;
begin
  for i:=1 to n do
   if P[i] > 0 then x := x + P[i];
  WriteLn(x);
end;

procedure MnozhY;
var
  i: byte;
begin
  for i:=1 to n do
   if p[i] > 0 then y := y * p[i];
  WriteLn(y);
end;

procedure ZCount;
var
  i: byte;
begin
  for i:=1 to n do
   if p[i] < 0 then Inc(z);
  WriteLn(z);
end;


begin clrscr;
  x := 0;
  y := 1;
  z := 0;
  Init(P);
  SumX;
  MnozhY;
  ZCount;
  B := Y + X div 10 + Z;
  WriteLn(B);
end.

Не забывай про отзыв.

[Оксана_В]

ты просто умничка! но первая задача должна иметь примерно такой видв прикрепленном док., а то у меня интернет глючит)

[Манжосов Денис :)]

Прости, две остальные задачи решить не смогу. А в прикреплённом документе задача

[Оксана_В]

меня все время выбрасывает. посмотри мои соображения насчет 1 задачки
Zn-знаменатель
Arg-аргумент
i- счетчик цикла
n- количество повторений
Var Zn, I, n: integer;
Y,x, Arg; real;
Begin
Weite (ввод x, n);
Read (x, n);
Zn:=1; y:=0; Arg:=1;
For i:=1 to n do
Begin
Arg: = дальше не поняла
Zn:=
У:=
Write ( у=,у) ; End.