Уисполнителя квадратор две команды, которым присвоены номера: 1. возведи в квадрат 2. прибавь 2 первая из них возводит число на экране во вторую степень, вторая — прибавляет к числу 2. составьте алгоритм получения из числа 1 числа 85, содержащий не более 5 команд. в ответе запишите только номера команд. в ответе запишите только номера команд. (например, 21221 — это алгоритм: прибавь 2, возведи в квадрат, прибавь 2, прибавь 2, возведи в квадрат, который преобразует число 1 в 169.) если таких алгоритмов более одного, то запишите любой из них.

1+2=3 (2)
3^2=9(1)
9^2=81(1)
81+2=83(2)
83+2=85(2)
ответ:21122

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

int main() {
      int n;
      cout<<"n = ";  cin>>n;   // ввод количества элементов массива 
      int a[n];
// заполнение массива и вывод на экран
      for (int i=0;i<n;i++) { 
           a[i]=rand()%15;     cout<<a[i]<<" "; 
      } 
      cout<<endl;  // перевод строки
// сортировка массива по возрастанию
      for (int i=0; i<n-1; i++)
      for (int j=i+1; j<n; j++) 
           if (a[i]>a[j]) swap(a[i],a[j]);
// вывод 4 минимальных
      cout<<"four min numbers:  ";
      for (int i=0; i<4; i++)  cout<<a[i]<<" ";
      cout<<endl;
      system("pause");  // ожидание ввода с клавиатуры
      return 0;
  }

program s1;

uses

 SysUtils;

var

 s, t: string;

 i: Integer;

 c: string;

begin

 Write ('Введите строку: ');

 ReadLn (s);

 t := '';

 for i := 1 to Length (s) do begin

   if s [i] in ['a'..'z'] then

     c := IntToStr (Ord (s [i]) - Ord ('a') + 1)

   else if s [i] in ['A'..'Z'] then

     c := IntToStr (Ord (s [i]) - Ord ('A') + 1)

   else if s [i] = ' ' then

     c := '0'

   else

     c := s [i];

   t := t + c + ' ';

 end;

 WriteLn (t);

 ReadLn

end.

program s2;

uses

 SysUtils;

var

 s, t: string;

 i: Integer;

 c: string;

begin

 Write ('Введите строку: ');

 ReadLn (s);

 t := '';

 for i := 1 to Length (s) do begin

   if not (s [i] in ['e', 'y', 'u', 'i', 'o', 'a', 'E', 'Y', 'U', 'I', 'O', 'A']) then

     c := s [i]

   else

     c := '';

   t := t + c;

 end;

 WriteLn (t);

 ReadLn

end.