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

Команды: решить пример, обработать текст, покормить питомца, найти книгу (в библиотеке, например) назначение: всячески людям. (не знаю, что еще можно написать) список: решить обработать текст покормитьн айти

Const dlin = 100; var b: array[1..dlin,1..2] of integer;         i,j,x: integer; begin writeln('исходный массив: '); for i: =1 to dlin do   begin   b[i,1]: =random(800)+100;   write(b[i,1],' ');   b[i,2]: =b[i,1] mod 10 + b[i,1] div 100 + b[i,1] div 10 mod 10;   end; writeln; for i: =1 to dlin-1 do   for j: =dlin-1 downto i do       if b[j,2]> b[j+1,2] then       begin       x: =b[j,2]; b[j,2]: =b[j+1,2]; b[j+1,2]: =x;       x: =b[j,1]; b[j,1]: =b[j+1,1]; b[j+1,1]: =x;       end; writeln('отсортированный массив: '); for i: =1 to dlin do     write(b[i,1],' '); end.

// pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin   var lvl: =0;   var s: = 'ebeeeeebeeebeeeebeeeeeeebbeeeeeebbebeebbebbebeeeebbbbeebeeeeeeebeebbbeebbbeeeebbeebeeeebbebbbbebebee';   var prede: =false;   foreach var c in s do       if c='e' then begin           if prede then begin prede: =false; lvl+=1 end           else prede: =true           end       else           if c='b' then begin prede: =false; lvl+=1 end;   writeln(lvl,' level') end. результат выполнения программы 63 level и второй вариант, "как не учат в школе": // pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin   var s: = 'ebeeeeebeeebeeeebeeeeeeebbeeeeeebbebeebbebbebeeeebbbbeebeeeeeeebeebbbeebbbeeeebbeebeeeebbebbbbebebee';   writeln(regex.matches(s,'e[eb]|b').count,' level') end. результат выполнения аналогичный.