Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var a:string; i,k:integer;beginwriteln(введи строку:);readln(a);for i:= 1 to length(a)-2 doif (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.