Вычислить сумму х+x^3/3+x^5/+x^11/11,x вводится с клавиатуры.(в 3 цыклах )

1. var x,a,s: real; i: integer; begin write('x = '); readln(x); a: =x; s: =x; i: =1; while i< 11 do   begin   i: =i+2;   a: =x*x*a;   s: =a/i;   end; writeln('s = ',s); end. 2. var x,a,s: real; i: integer; begin write('x = '); readln(x); a: =x; s: =x; i: =1; repeat   i: =i+2;   a: =x*x*a;   s: =a/i; until i=11; writeln('s = ',s); end. 3. var x,a,s: real; i: integer; begin   write('x = '); readln(x); a: =x; s: =x; for i: =1 to 11 div 2 do   begin   a: =x*x*a;   s: =a/(2*i+1);   end; writeln('s = ',s); end. пример: x = 3 s = 16104.2727272727

якщо загородка - прямокутник,

умовно з - це заєць,

то схема розташування зайців така:

 

з                          з

 

                              з

з              з       

 

три зайці - по кутках, два - біля стінок загородки.

первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0(ноль)

результат выполнения

аб2в457где245*ж0247025020

2) 

var s, r: string; i: integer;

begin readln(s); r : = ''; for i : = 1 to length(s) do if s[i] < > 'c' then r : = r + s[i]; writeln(r); end.