По тексту программы написать условие var s: string; - вопрос №3532093 от sashanepasha 20.01.2022 10:18

Question

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

sashanepasha · Answer

Найдите количество пробелов у строке, та укажите их часть, у процентах, в строке....

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