#include <iostream>
int main (){ int y, x; std::cin>>x; switch (x) { case 3: y = 1; break; case 6: y = 2; break; default: y= 3; break; } std::cout<<y;}
<em>// PascalABC.NET 3.2, сборка 1436 от 01.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('Вводите:').ToWords.Select(w->w.ToLower)
.Where(w->w=w.Inverse).Println
end.
<u>Пример</u>
Вводите: Шла Алла по дороге видит дед несет наган
алла дед наган
Здесь все 3 примера в одной программе:
program Primer;
var
x, y, z: Real;
begin
Write('Введите значения x,y,z: ');
ReadLn(x, y, z);
WriteLn('1: ', (x + y - z) / (sqr(x) + 2), #10, '2: ', 5 * (2 * x - z) / (3 + sqr(y)), #10, '3: ', (1 + z) * ((x + y / (sqr(x) + 4)) / (2 + 1 / (sqr(x) + 4))));
end.
Во-первых нам нужны только четное количество цифр в двоичном числе, если учесть максимальное 25160=110001001001000, т.е. мы идем от 2 до 14 цифр через 2.
1 цифра всегда единица. значит остается n нулей и n-1 единиц. Теперь по формуле перестановки с повторениями(можешь почитать в инете), вычисляем последовательно:
1) 2 цифры = 1 вариант
2) 4 цифры = 3 варианта
3) 6 цифры = 10 варианта
4) 8 цифры = 35 варианта
5) 10 цифры = 126 варианта
6) 12 цифры = 462 варианта
7) 14 цифры = 1716 варианта
сложим и получим 2353 варианта.