тип String Опции

[симав]

Подсчитайте, какой процент слов в тексте содержит удвоенную букву.
Вот, что я сделала:

Код

var s:string;
p:real;
n,k,i:byte;
begin
readln(s);
for i:=1 to length(s) do begin
if s[i]=' ' then n:=n+1;
if s[i]:=s[i+1] then k:=K+1;
end;
p:=(n/k)*0.1;
writeln('p=',p:3:3);
readln;
end.

[симав]

Вот задачка.
Найти кол-во слов начинающихся и заканчивающихся на обнуи туже букву.

Код

var s:string;
k,i:byte;
begin
readln(s);
for i:=1 to length(s) do begin
if (s[i-1]=' ')and (s[1]=s[i]) then k:=K+1;
end;
writeln('k=',k);
readln;
end.

Что-то не идет.

[volvo]

Что-то не идет.

:yes: Правильно, не идет... Вот должно пойти:

var
  s:string;
  k,i, start:byte;
begin
readln(s);
i := 1; start := 1;
while i <= length(s) do
begin
  if s[i] = ' ' then begin
    if (i - start > 0) and
       (s[start] = s[i - 1]) then k := k + 1;
    start := i + 1;
  end;
  inc(i);
end;
writeln('k=',k);
readln;
end.