выполни перевод чисел из двоичной системы в десятичную и обратно: а)10111101^2 б)1110000^2 в)6317^10​

а) 189

б) 112

в) 1100010101101

#include <iostream>
#include <cmath>
using namespace std;

int main()
{
 int selection;
 float first, second, result;
 cout << "Калькулятор\n";
 cout << "1. Сложение\n";
 cout << "2. Вычитание\n";
 cout << "3. Умножение\n";
 cout << "4. Деление\n";
 cout << "0. О программе\n\n";
 cout << "Введите цифру: ";
 cin >> selection;
 switch(selection)
 {
  case 1:
   cout << "Введите первое слагаемое: ";
   cin >> first;
   cout << "Введите второе слагаемое: ";
   cin >> second;
   result = first + second;
   cout << "Результат: " << result << "\n";
   break;
  case 2:
   cout << "Введите уменьшаемое: ";
   cin >> first;
   cout << "Введите вычитаемое: ";
   cin >> second;
   result = first - second;
   cout << "Результат: " << result << "\n";
   break;
  case 3:
   cout << "Введите первый множитель: ";
   cin >> first;
   cout << "Введите второй множитель: ";
   cin >> second;
   result = first * second;
   cout << "Результат: " << result << "\n";
   break;
  case 4:
   cout << "Введите делимое: ";
   cin >> first;
   cout << "Введите делитель: ";
   cin >> second;
   result = first / second;
   cout << "Результат: " << result << "\n";
   break;
  case 0:
   cout << "Программа 'Калькулятор'.\n";
   break;
  default:
   cout << "Необходимо ввести цифру от 0 до 4 в зависимости от Вашего выбора!\n";
 }
return 0;
}

Задание 1.

program z1;

var a: array[0..14] of integer;

i: integer;

begin

   Randomize;

   for i:=0 to 14 do a[i] := Random(101) - 50;

   for i:=0 to 14 do write(a[i], ' ');

end.

Задание 2.

program z2;

var a, b, c: array[0..19] of integer;

i: integer;

begin

   Randomize;

   for i:=0 to 19 do begin

       a[i] := Random(21) - 10;

       b[i] := Random(21) - 10;

       c[i] := a[i] + b[i];

   end;

   for i:=0 to 19 do write(a[i], ' ');

   writeln();

   for i:=0 to 19 do write(b[i], ' ');

   writeln();

   for i:=0 to 19 do write(c[i], ' ');

end.

Задание 3.

program z3;

var a: array[0..19] of integer;

i: integer;

begin

   a[0] := 1;

   a[1] := 1;

   for i:=2 to 19 do begin

       a[i] := a[i-1] + a[i-2];

   end;

   for i:=0 to 19 do write(a[i], ' ');

end.