Придумай исполнителя алгоритмов.в его системе команд хотя бы одна команда должна иметь параметры. желательно также, чтобы он понимал блок-схемы.

Исполнитель калькулятор. 1.степень(число,степень) 2.корень(число,степень) 3.сложение(число,число2) 4.умножение(число,число2) 5.деление(число,число2) 6.вычитание(число,число2) 7.вывод(алг)-выводит результат алгоритма 8.если(условие) 9.скобка1 скобка2-для содержания операторов в условии начало конец - для содержания всего алгоритма 10.ошибка - сообщает об ошибке и прекращает выполнение алгоритма 11.ввод(x)-считывает числа, введённые пользователем пример: возвести х в степень у начало ввод(х,у) степень(х,у) вывод(алг) конец калькулятор находит сумму, разность, произведение, частное, возводит в степень или извлекает корень согласно введённым пользователем данным, либо заданным по умолчанию.

1. var     a: array[1..20] of integer;     b,i: integer; begin   for i: =1 to 20 do   begin       a[i]: =random(50);       if (a[i] mod 2) = 0 then b: =b+a[i];     write(a[i],' ');   end;   writeln;   writeln('сумма чётных элементов равна ',b); end. 2.   var       a: array[1..10] of integer;       i: integer;   begin       for i: =1 to 10 do       begin         a[i]: =i*3-2;         write(a[i],' ');       end; end.

// pascalabc.net 3.0, сборка 1157 от 02.02.2016 begin   var n: =readinteger('n=');   if n< 0 then writeln(n,'! не определено: n< 0')   else       if n=0 then writeln('0! =1')       else begin           var p: biginteger: =1;           for var i: =2 to n do p*=i;           writeln(n,'! =',p)           end end. тестовое решение: n= 138 138! =691778647261948849222819828311491035886734385827028118707676848307166514238979223884785249055995983385450621636277440066920043595627074569065446040152660143904127838730788278294186615891819670506731208704000000000000000000000000000000000