var
s:string;
z,z1,i:integer;
begin
readln(s);
z:=0;
z1:=0;
for i:=1 to length(s) do
begin
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.
У черных 8 ходов если пешки могут ходить на 1 вперед- 3 бита
Но пешки в 1-й ход могут еще ходить на 2 вперед -+8=16 ходов 4 бита
Про белых черные узнают в зависимости от того какой пешкой походили
Иногда после хода пешки открывается путь для 1 фигуры, которую пешка
загораживала, а иногда открывается путь для 2-х фигур.
Алгори́тм — набор инструкций, описывающих порядок действий исполнителя для достижения некоторого результата.
Начало.
Оденься.
Если дома кто-нибудь остаётся,попрощайся.
То выйдя из квартиры.
Иначе ...?
Выйди из квартиры.
Закрой дверь.
Коней.
Решение в лоб :D, только желательно запускай прогу отдельно в папке.
Program out;
var fo:text;
begin
assign(fo,'output.txt');
rewrite(fo);
Writeln(fo,'Program AplusB;');
Writeln(fo,'var A,B: Integer;');
Writeln(fo,'begin');
Writeln(fo,' Assign(input,''input.txt'');');
Writeln(fo,' Reset(input);');
Writeln(fo,' Assign(output,''output.txt'');');
Writeln(fo,' Read(A,B);');
Writeln(fo,' ReWrite(output);');
Writeln(fo,' WriteLn(A+B);');
Writeln(fo,' Close(input);');
Writeln(fo,' Close(output);');
Writeln(fo,'end.');
close(fo);
end.