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

Опять я торможу с ответом...
Однако, volvo, "как показало вскрытие", твой код некорректно обрабатывает случай, когда последнее слово - однобуквенное ;)

[volvo]

"как показало вскрытие", твой код некорректно обрабатывает случай, когда последнее слово - однобуквенное  ;)

Да, этого я не предусмотрел Но это очень просто исправить...

...
readln(s); s := s + ' ';
i := 1; start := 1;
...