:дан текст. определить кол-во слов, начинающихся на "ка". ниже решение. как сделать так, чтобы было решение кол-во слов, оканчивающиеся на "ка" var a: string; i,k: integer; begin writeln('введи строку: '); readln(a); for i: = 1 to length(a)-2 do if (a[i]=' ') and (a[i+1]='к') and (a[i+2]='а') then k: =k+1; if (a[1]='к') and (a[2]='а') then k: =k+1; writeln(k); end.

Mira12202    3   10.07.2019 02:50    0