Ответ: в номере 1 ответ 3.
Подробно написал как из десятичной в двоичную переводить. Тут все просто.
Объяснение:
Дополню, 1 ответ остаётся
Во втором Ответ 4 единицы
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function CalcWord(Stroka: string):integer;
begin
Result:=Stroka.ToWords.Where(w->w=w.Inverse).Count
end;
begin
var s:='казак пошел в кабак и сделал заказ';
Writeln('Слов-палиндромов: ',CalcWord(s))
end.
<u>Результат</u>
Слов-палиндромов: 5
<u>Если однобуквенные слова не учитываются</u>, надо изменить Where:
Where(w->(w=w.Inverse) and (w.Length>1))
1) Ане нравятся уроки математики и химии
2) Ане нравятся уроки химии и не нравятся - математики
3) Ане нравятся уроки математики и не нравятся - химии
4) Ане нравятся уроки математики или химии
5) Ане нравятся уроки математики или не химии
6) Ане не нравятся уроки математики или химии
7) Ане не нравятся уроки математики или химии
8) Ане не нравятся уроки математики и химии
9) Ане не нравятся уроки математики или нравятся уроки химии
Program z1;
Var c,i:integer;
Begin
Read (n,i);
If not(c=2) then
For i to 0 do
begin
c:=c+1;
i:=i-2;
end;
writeln(n);
end.
