Палиндромом назовем число, состоящее не менее чем из 2-х символов или цифр, одинаково читающееся как слева направо, так и наоборот. например, число «1221» является палиндромом, а число «1224» – нет. назовем палиндромом-1016 число, являющееся палиндромом в десятичном и шестнадцатеричном представлении. количество палиндромов-1016 среди первых десяти миллионов натуральных чисел составит…

Ответ: 22 вариант на c++, но программа долго выполняется; как оптимизировать, я пока не знаю. #include < iostream> #include < sstream> #include < string> int main() {       int k = 0;     //счетчик 1016палиндромов             for (int i = 16; i < = 10000000; i++)       {             int temp = i;             std: : stringstream ss;     //перевод 10чного числа в 16чную строку             ss < < std: : hex < < temp;             std: : string temp16(ss.;             //проверяем, является ли 16чное число палиндромом             bool t16 = true;             int left_index = 0;             int right_index = temp16.size() - 1;             while (left_index < right_index)                   if (temp16[left_index++] ! = temp16[right_index--])                         t16 = false;             if (t16)             {                   bool t10 = true;                   std: : ostringstream ost;     //перевод 10чного числа в строку                   ost < < temp;                   std: : string temp10 = ost.str();                   //проверяем, является ли 10чное число палиндромом                   int left_index = 0;                   int right_index = temp10.size() - 1;                   while (left_index < right_index)                         if (temp10[left_index++] ! = temp10[right_index--])                               t10 = false;                   if (t10)                         k = k + 1;             }       }             std: : cout < < "number of 1016-palindroms: " < < k < < std: : endl;       return 0; }

Program soprotiv; {название программы}  var r1, r2: real; {задаем переменные}  c: byte;   begin {начало программы}  write ('введите 1 '); {вывод сообщения о вводе данных}  readln (r1); {ввод данных с клавиатуры}  write ('введите 2 '); {вывод сообщения о вводе данных}  readln (r2); {ввод данных с клавиатуры}  write ('если соединение параллельное, то нажмите клавишу 1, если соединение последовательное - нажмите '); {вывод сообщения о вводе данных}  readln (c); {ввод данных с клавиатуры}  if c=1 {условие}  then writeln ('сопротивление электрической цепи, соединенной параллельно=',(r1*r2)/(r1+r2)) {вывод значения, при параллельном соединении}  else writeln ('сопротивление электрической цепи, соединенной последовательно=',(r1+r2)); {вывод значения, при последовательном соединении}  end. {конец программы}