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

[hiv]

Проценты совсем неправильно считаются! n - количество слов, k - количество слов где есть парные буквы. Тогда процент счтается как k/n*100
Вот как надо:

Код

program dubleb;
var s:string;
   n,k,i:byte;
   boy :boolean;
begin
readln(s);
n:=0;
k:=0;
i:=1;
while (i<=length(s))and(s[i]=' ') do inc(i);

while i<=length(s) do
begin
 if s[i]=' ' then
 begin
   inc(n);
   inc(i);
   while (i<=length(s))and(s[i]=' ') do inc(i);
 end
 else
 begin
   boy:=false;
   while (i<=length(s))and(s[i]<>' ') do
   begin
     if i>1 then boy:=boy or (s[i]=s[i-1]);
     inc(i);
   end;
   if boy then inc(k);
   if (i>length(s))and(s[length(s)]<>' ') then inc(n);
 end;
end;

if n>0 then writeln('p=',(k/n*100):5:1,'%')
else writeln('В тексте нет слов!');
readln;
end.