Question

Задача: Дан текст. Определить кол-во слов, начинающихся на "ка". Ниже решение. Как сделать так, чтобы было решение кол-во слов, оканчивающиеся на "ка"???? 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.

Answer 1

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[length(a)-1]='к') and (a[length(a)]='а') then k:=k+1; writeln(k); end.

Answer 2

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

Вместо того, чтобы проверять символы a[i], a[i+1] и a[i+2] на соответствие "ка", вам нужно проверить символы a[i-1], a[i] и a[i+1]. Это позволит определить, что слово оканчивается на "ка".

Также, вам потребуется добавить проверку на последние два символа строки, чтобы учесть случай, когда последнее слово в строке оканчивается на "ка".

Исправленный код будет выглядеть следующим образом:

var a: string; i, k: integer; begin writeln('Введите строку:'); readln(a); k := 0; for i := 2 to length(a) do begin if (a[i-1] = 'к') and (a[i] = 'а') then k := k + 1; end; if (a[length(a)-1] = 'к') and (a[length(a)] = 'а') then k := k + 1; writeln(k); end.

Теперь код будет определять количество слов, оканчивающихся на "ка".