:исполнитель калькулятор умеет выполнять только две команды: 1. вычесть 1; 2. умножить на 3. составить алгоритм, содержащий не более 5 команд, получения а) из числа -2 число -60; б) из числа 17 число 47. ответ записать в виде последовательности команд.

А) 2, 2, 1, 1, 2 б) 1, 2, 1

Var s: string;     f1,f2: text;     i,k: integer; begin   assign(f1,'t1.txt');   reset(f1);   assign(f2,'t2.txt');   rewrite(f2);   while not eof(f1) do   begin       k: =0;       readln(f1,s);       for i: =1 to length(s) do         if s[i] in ['0'..'9'] then         begin             k: =1;             break;         end;       if k=0 then writeln(f2,s);   end;   close(f1);   close(f2); end.

Using system; using system.collections.generic; namespace znanija1 {        internal class program {                  public static void main(string[] args) {                          int c = 0;                           string s;                           s = console.readline();                           var a = s.split(' ');                           for (int i = 0; i < a.length; ++i) {                                     if (int32.parse(a[i]) % 2 == 0) {                                              c++;                                     }                          }                          console.write(c);                   }          }}