Дана строка. Определить, сколько в ней слов начинающихся и заканчивающихся на букву k?

@FastFires · Регистрация: 17.10.2016

Author24 — интернет-сервис помощи студентам

Pascal

var
sum,k,m,n,i:integer;
s:string;
begin
sum:=0;
read(s);
k:=length(s);
for i:=1 to k do
 begin
  if (s[i]='k') and ((s[i+1]=' ') or (s[i-1]=' ') or (s[i+1]='') or (s[i-1]='')) then
   begin
   n:=i;
   for m:=n to k do
     begin
     if (s[n]='k') and ((s[n+1]=' ') or (s[n+1]='')) then sum:=sum+1;
     break;
     end;
   end;
  end;
writeln(sum);
 
end.

Помогите, где здесь ошибка? Как её исправить?

@alperin03 · 17.10.2016, 20:39

Советую учить JAVA SE

@alperin03 1 / 1 / 0 Регистрация: 20.09.2016 Сообщений: 6
	17.10.2016, 20:39	2
	Советую учить JAVA SE 0