Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
s: string;
z,z1,i: integer;
begin
readln(s);
z: =0;
z1: =0;
for i: =1 to length(s) do
if s[i]='м' then inc(z);
if s[i]='н' then inc(z1);
end;
if z> z1 then writeln('больше букв м');
if z< z1 then writeln('больше букв н');
if z=z1 then writeln('букв м и н равное количество');
end.
138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.
1) через горячие клавиши
вынесением кнопок в панель инструментов (word например)
через консоль, если таковая имеется (например vi)
жестами мышки (opera)
голосовыми (opera)
2)delete (del), copy(ctrl+c), cut(shift+del), paste(ctrl+v)
3) open(ctrl+o), save(ctrl+s)
(5)aabaabcaabaabcdaabaabcaabaabcde(6)aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdef(7)aabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefaabaabcaabaabcdaabaabcaabaabcdeaabaabcaabaabcdaabaabcaabaabcdefg
на 64 месте: а
Популярные вопросы