<span>Начинать нужно с козы. Крестьянин, перевезя козу, возвращается и берет волка, которого перевозит на другой берег, где его и оставляет, но зато берет и везет обратно на первый берег козу. Здесь он оставляет ее и перевозит к волку капусту. Вслед за тем, возвратившись, он перевозит козу. так вот</span>
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function IsPalindrom(w:string):=(w.Length>1?w=ReverseString(w):False);
begin
var s:=ReadlnString('>');
Writeln('Палиндромов: ',s.ToWords.Where(w->IsPalindrom(w)).Count)
end.
<u><em>Тестовое решение</em></u>
> мадам ваш заказ уже несут - слышу топот официанта
Палиндромов: 3
{Файл prog1_13_3.pasЗадача: Даны значения трёх целочисленных переменных a, b, c. Переместить их значения так, чтобы переменная а получила бы исходное значение b, b получила бы значения c, а переменная c - значение a.Автор: Башмаков М. Д., ИТ-11Дата: 15,09,2015} var a, b, c, k: integer;
begin k:=0; {Ввод} writeln('введите переменные a, b, c'); readln (a, b, c); {Перемещенние} k:=a; a:=b; b:=c; c:=k; {Вывод} writeln('а=',a,' b=',b, ' c=',c);end.
===== PascalABC.NET =====
№1
begin
var n := ReadInteger;
var a := SeqRandomReal(n, -99, 99).Select(p -> Round(p,1)).ToArray;
a.Println;
var ic := n div 2;
if a[ic] > a[ic+1] then
a[ic] := 1
else if a[ic] = a[ic+1] then
a[ic] := 0
else
a[ic] := (a[n-1] + a[n-2])/2;
a.Println
end.
№2
begin
var (a, x) := ReadReal2('Введите а и х:');
var y: real;
if x < 0 then
y := 2 + x
else if x = 0 then
y := 3 * a - 1
else
y := a + x;
Print(y)
end.
![\begin{cases} \lnot(x_1\lor y_1)\equiv (x_2\lor y_2)\\ \lnot(x_2\lor y_2)\equiv (x_3\lor y_3)\\ \dots\\ \lnot(x_5\lor y_5)\equiv (x_6\lor y_6) \end{cases}](https://tex.z-dn.net/?f=%5Cbegin%7Bcases%7D%0A%5Clnot%28x_1%5Clor+y_1%29%5Cequiv+%28x_2%5Clor+y_2%29%5C%5C%0A%5Clnot%28x_2%5Clor+y_2%29%5Cequiv+%28x_3%5Clor+y_3%29%5C%5C%0A%5Cdots%5C%5C%0A%5Clnot%28x_5%5Clor+y_5%29%5Cequiv+%28x_6%5Clor+y_6%29%0A%5Cend%7Bcases%7D)
Обозначим
![t_i=x_i\lor y_i](https://tex.z-dn.net/?f=t_i%3Dx_i%5Clor+y_i)
. Тогда система превращается в такую:
![\begin{cases} \lnot t_1\equiv t_2\\ \lnot t_2\equiv t_3\\ \dots\\ \lnot t_5\equiv t_6 \end{cases}](https://tex.z-dn.net/?f=%5Cbegin%7Bcases%7D%0A%5Clnot+t_1%5Cequiv+t_2%5C%5C%0A%5Clnot+t_2%5Cequiv+t_3%5C%5C%0A%5Cdots%5C%5C%0A%5Clnot+t_5%5Cequiv+t_6%0A%5Cend%7Bcases%7D)
Пусть
![t_1=0](https://tex.z-dn.net/?f=t_1%3D0)
. Тогда
![t_2=t_4=t_6=1,\quad t_3=t_5=0](https://tex.z-dn.net/?f=t_2%3Dt_4%3Dt_6%3D1%2C%5Cquad+t_3%3Dt_5%3D0)
. Учитывая, что уравнение
![t_i=0](https://tex.z-dn.net/?f=t_i%3D0)
имеет 1 решение
![x_i=y_i=0](https://tex.z-dn.net/?f=x_i%3Dy_i%3D0)
, а
![t_i=1](https://tex.z-dn.net/?f=t_i%3D1)
- 3 решения, а также вспоминая, что все переменные независимы, получаем по правилу умножения, что в этом случае будет
![1\cdot3\cdot1\cdot3\cdot1\cdot3=27](https://tex.z-dn.net/?f=1%5Ccdot3%5Ccdot1%5Ccdot3%5Ccdot1%5Ccdot3%3D27)
решений.
Если
![t_1=1](https://tex.z-dn.net/?f=t_1%3D1)
, всё будет так же с точностью до замены 1 на 0 и наоборот, в этому случае будет тоже 27 решений.
Всего возможных наборов 27 + 27 = 54.