Дана строка символов.найти количество слов, у которых первый последний символы между собой

uses crt; var s,sl: string; i,k: integer; beginwriteln('введите строку'); readln(s); s: =s+' '; sl: =''; for i: =1 to length(s) do if s[i]< > ' ' then sl: =sl+s[i] else begin if (sl[1]=sl[length(sl)]) and (length(sl)< > 0) then inc(k); sl: =''; end; writeln('количество слов, начинающихся и заканчивающихся одной буквой = ',k); readkeyend.

1. электронный словарь - база данных "слово-слово", где одно слово является значением, переводом или определением другого. 2. электронный словарь способен переводить лишь отдельные слова, а с-ма может разпознавать стойкие выражения, синтаксис и пунктуацию, что дает более верные результаты. 3. текст для распознавания - это изображение (в виде пикселей), которые нужно составить с типографическим знаком, принимая во внимание кодировку и прочие особенности отдельных языков. 4. поскольку текст находится в виде изображения, а не символов, и требует ручного перенабора или распознавания с по.

C++ #include < iostream> #include < cmath> #include < stdio.h> using namespace std; int main() { int a,b,c,d,r,r2,r3; cin > > a > > b > > c > > d; r=min(a,b); r2=min(r,c); r3=min(r2,d); cout < < r3; return 0; } pascalprogram project1; var a,b,c,d: integer; beginreadln (a,b,c,d); if ((a< =b) and (a< =c) and (a< =d)) then beginwriteln (a); endelse if ((b< =a) and (b< =c) and (b< =d)) then beginwriteln (b); endelse if ((c< =b) and (c< =a) and (c< =d)) then beginwriteln (c); endelse beginwriteln (d); end; end.