Result должен быть с новой строки, т.к. это тоже запрос
Каждый символ может иметь 64 значения, то есть 2^6, тогда на каждый символ выделяется 6 бит.Всего символов - 100. Значит всего нужно 6*100=600 бит=75 байт.
Var s: string;
<span> n,k: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> n:=pos(' ',s);
</span><span> if n>0 then
</span><span> begin
</span><span> writeln('первая буква второго слова: ',s[n+1]);
</span><span> writeln('последняя буква: ',s[length(s)]);
</span><span> writeln('количество букв: ',length(s)-n);
</span><span> k:=0;
</span><span> for n:=1 to length(s) do
</span><span> if s[n]='a' then k:=k+1;
</span><span> if k>0 then writeln('количество букв a: ',k)
</span><span> else writeln('в строке нет буквы a');
</span><span> end
</span><span> else writeln('в строке одно слово');
</span><span>end.
</span><span>
</span>
Вопрос 1 - 0
Вопрос 2 - 1
Вопрос 3 - 0
Вопрос 4 - 5
Вопрос 5 - 0
Вопрос 6 - 4
Вопрос 7 - 3
Вопрос 8 - 12
Вопрос 9 - 0 mod 5 , 7 mod 7 , 3 div 5.
Вопрос 10 - 1 mod 3 , 5 div 3 , 9 mod 4.