Дана строка содержащая любые символы кроме русских букв.
Написать функцию, которая в заданной строке находит количество больших и маленьких согласных английских букв.
Использовать заголовок

ответ:

uses crt;

var s,sf,sl: string;

    i,l: integer;

begin

writeln('введите слова: ');

readln(s);

if s[1]=' ' then       //проверяем, чтобы не было пробелов в начале строки

  repeat

  delete(s,1,1);       //удаляем пробелы в начале строки, если они есть

  until s[1]< > ' ';

l: =length(s);

if s[l]=' ' then       //проверяем, чтобы не было пробелов в конце строки

  repeat

  delete(s,l,1);       //удаляем пробелы в начале строки, если они есть

  dec(l);

  until s[l]< > ' ';

i: =1;

sf: =''; sl: ='';         //изначально переменные для первого и последнего слова пусты

while s[i]< > ' ' do       //начинаем с первого символа и прекрепляем к первому слову

      begin

      sf: =sf+s[i];       //по одному символу до тех пор, пока не дойдем до пробела

      inc(i);           //увеличиваем счетчик символов на 1

      end;

i: =l;

while s[i]< > ' ' do     //начинаем с последнего символа и прекрепляем ко второму слову (спереди, то есмть по сути перед словом =))

      begin

      sl: =s[i]+sl;     //по одному символу до тех пор, пока не дойдем до пробела

      dec(i);         //уменьшаем счетчик символов на 1

      end;

writeln(sf,' ',sl);   //вывод

readln;

end.

объяснение:

ответ

uses

  graphabc;

begin

  setwindowwidth(800);                                         //ширина окна

  setwindowheight(600);                                       //высота окна

  setpenwidth(3);

  roundrect(200, 300, 600, 350, 20, 20);                       //кузов машины

  floodfill(400, 320, clnavy);

  circle(290, 350, 30);                                       //переднее колесо

  floodfill(300, 360, clblack);

  circle(510, 350, 30);                                       //заднее колесо

  floodfill(520, 360, clblack);

  begin

    setpenwidth(3);

    line(300, 300, 340, 250);

    line(340, 250, 470, 250);

    line(470, 250, 510, 300);

    line(405, 250, 405, 350);

    line(510, 300, 510, 320);

    line(300, 300, 300, 320);

    line(380, 310, 390, 310);

    line(480, 310, 490, 310);

    line(300, 300, 510, 300);

  end;

  begin

    setpencolor(clgray);                                   //цвет кисти

    setpenwidth(15);                                       //размер кисти

    circle(510, 350, 10);                                 //заднее колесо

    circle(290, 350, 10);                                 //переднее колесо

  end;

  begin

    setpenwidth(3);

    setpencolor(clyellow);

    circle(100, 100, 30);

    floodfill(110, 110, clyellow);

    line(140, 120, 200, 150);

    line(130, 135, 150, 160);

    line(120, 140, 140, 190);

    line(105, 145, 110, 170);

    line(95, 145, 90, 190);

  end;

  begin

  setpenwidth(20);

  setpencolor(clgreen);

  line(0, 385, 800, 385);

  setpenwidth(3);

    setpencolor(clolive);

    rectangle(0, 385, 800, 600);

    floodfill(110, 390, clolive);

  end;

объяснение: