Построить «Птица» x от -6 до 9 с шагом 1
1) у=− 4/ 27 х ^2+6 , х ∈[ 0 ;9 ];
2) у= 1/9 ( х−7) ^2 −4, х∈[−2;7 ];
3) у=−0,5 (х+2)^ 2 +8, х∈[−4;0 ];
4) у=− 1/ 16 ( х+2)^ 2 +5, х∈[−6;−2 ];
5) у=х+10, х ∈[−6;−4];
6) у=−х+3 , х∈[7;9 ];
7) у=0,5 х−1 , х∈[−6 ;1];
8) у=0,5 х−2,5, х∈[−5 ;2];

Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer;     a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 );   for i : =1 to n do   begin   x : =xc +round (rc * cos (a *i ) );   y : =yc -round (rc * sin (a *i ) );   circle (x ,y ,ro );   end; end.

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

 

 

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}