По тексту программы написать условие задачи
Var S:string; i,k:integer; d:real;
Begin
Writeln('Введите строку:');
Readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]=' ' then k:=k+1;
d:=k/length(s)*100;
Writeln('доля = ',d:5:2);
Readln
End.