.........................................................
Ответ их произведение мощность алфавита это его объём
64 ГБ - 65536 МБ
Фильм - 1300,48 МБ
Фото - 1525,76 МБ
Отчет - 15,4 МБ
1300,48 + 1525,76 + 15,4 = 2841,64 МБ
65536 - 100 %
2841.64 - X %
2841.64 * 100 / 65536 ≈ 4.3%
Var
s:string;
i,n,w:integer;
begin
writeln('Введите текст');
readln(s);
s:=s+' ';
n:=length(s);
for i:=1 to n do
if (s[i]='а') and (s[i+1]=' ') then
inc(w);
writeln('Кол-во = ',w);
<span>end.</span>