По тексту программы написать условие 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.

ievghienii1    3   21.06.2019 21:26    0