Вычислить значение функции f по одной из формул в зависимости от значения х: f=x+b1 при х< 6 f=x/b2 при х=15 f=x+b3 в остальных случаях значение b1 b2 b3 вводятся.

для паскаля:

var f,x,b1,b2,b3: real; beginwrite('b1='); read(b1); write('b2='); read(b2); write('b3='); read(b3); write('x='); read(x); if x< 6 then f: =x+b1; if x=15 then f: =x/b2else f: =x+b3; writeln('f=',f); end.

Вот решение на паскале abc, если нужно на другом языке программирования. напишите на почту. var   a: string;   c: char;   n,i,i1: integer; begin   readln(a);   for i: =1 to length(a) do begin       c: =a[i];       for i1: =i+1 to length(a) do begin           if c = a[i1] then n: =n+1;       end;   end;   if n> 0 then writeln('в слове ',n,' пар букв') else writeln('буквы не повторяются')   end.

Ответ: 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; }