program str_1;
var s,slov : string;
i : integer;
kolbukv,kolslov : integer;
begin
WriteLn('BBEDuTE CTPOKy:');
ReadLn(s);
kolslov := 0;
for i:=1 to length(s) do begin
if ((i=1) and (s[i]<>' ')) xor ((s[i]<>' ') and (s[i-1]=' ')) then begin
kolbukv:=1;
kolslov := kolslov + 1;
slov := s[i];
end;
if (s[i-1]<>' ') and (s[i]<>' ') and (s[i+1]<>' ') and (i<>1) then begin
kolbukv := kolbukv + 1;
slov:= slov + s[i];
end;
if ((i=length(s)) and (s[i]<>' ')) xor ((s[i]=' ') and (s[i-1]<>' ')) then begin
if (i<>length(s)) and (s[i-2]<>' ') and (i<>2) then begin
slov := slov + s[i-1];
kolbukv := kolbukv + 1;
end;
WriteLn(slov,' - ',kolbukv);
kolbukv := 0;
end;
end;
Writeln('Bcero ',kolslov,' CJIOB');
end.
нет
да
да
да
нет
нет
нет
да
нет
нет
kolslov = 0
да
да
kolbukv = 1
kolslov=kolslov+1
да
slov = s[i]
да
да
kolbukv = kolbukv + 1
slov = slov + s[i]
нет
нет
нет
да
да
нет
нет
нет
slov = slov + s[i-1]
kolbukv = kolbukv + 1
kolbukv = 0