Прошу помочь с задачками на массивы

[Митяйко]

Прошу помочь с задачками на массивы

1 Дано предложение. опр сколько раз в нем встречаются сдвоенные буквы.
2 Даны х[1..10] L[1..10] вычислить z=сумм[i=1..10]х-L)/корень кв из |х*L|
3 Дан масив х[1..15] определить номер первого и последнего отрицательного члена
4 Дан х определить х^3/3!+3*^5/5!+....25*x^27/27!
оставте любые заготовки плз мож сам допру с вашей помощью заранее спасибо

 

[Vladimir_S]

1 Дано предложение. опр сколько раз в нем встречаются сдвоенные буквы.

VAR
 S:String;
 Nd,i:BYTE;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 Nd:=0;
 for i:=1 to Length(S)-1 do
  if S[i]=S[i+1] then Inc(Nd);
 WriteLn('Doubled symbol occurs ',Nd,' times');
 ReadLn;
END.

4 Дан х определить х^3/3!+3*^5/5!+....25*x^27/27!

VAR
 S,x:Real;
 i:BYTE;

function X2np(X:Real; n:Byte):Extended;
Var i:Byte;
    Y:Extended;
BEGIN
  IF n=0 THEN X2np:=1 ELSE
  IF n=1 THEN X2np:=X ELSE
  BEGIN
    Y:=X;
    FOR i:=2 TO n DO Y:=Y*X;
    X2np:=Y;
  END;
END;

function Nfact(n:Byte):Extended;
VAR
  i:Byte;
  fact:Extended;
BEGIN
  IF n=0 THEN fact:=1 ELSE
    BEGIN
      fact:=1;
      FOR i:=1 TO n DO
        fact:=fact*i;
    END;
  Nfact:=fact;
END;

BEGIN
 Write('x= ');
 ReadLn(x);
 S:=0;
 for i:=1 to 13 do
  S:=S+X2np(x,2*i+1)*(2*i-1)/Nfact(2*i+1);
 WriteLn('Sum= ',S);
 ReadLn;
END.

 

[Митяйко]

спасибки оч благодарен

 

[Митяйко]

остальные тож чет никак не соображу хоть размышления напишите мож че и смогу оформить (заранее спасибо)