тип 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.

[Atos]

Код

var ch:char; i:byte;

...

begin
k:=0;
...
{тут  сделай обработку случаев, когда длина s равно 0 или 1}
...
{else}

if s[1]<>' ' then ch:=s[1];
i:=2;
repeat
if s[i]<>'  ' then
   begin
   if s[i-1]='  ' then ch:=s[i];
   if s[i+1]='  ' then if ch=s[i] then k:=k+1;
   end;
inc(i);
until (i=length(s));
if s[i]<>' ' then if ch=s[i] then k:=k+1;

...

end.