•опишите исполнителя робота по плану: 1) имя 2) круг решаемых 3) среда 4) ски 5) система отказов 6) режимы работы

  1) имя - робот  2) круг решаемых - робот занимает ровно одну клетку поля. он может переместиться на соседнюю клетку в любом направлении, закрасить клетку, проверить, свободен ли путь к  соседней клетке, выдать сообщение об ошибке, если команда неправильна.  3) среда - робот действует на прямоугольном клетчатом поле. между некоторыми клетками поля могут быть расположены стены. некоторые клетки могут быть закрашены  4) ски - включает в себя:

5 команд действий (влево, вправо, вверх, вниз, закрасить)

8 команд проверки условий (слева/справа/сверху/снизу свободно/закрашено)

цикл n раз

цикл пока

можно также определять процедуры - заранее заданные наборы команд (подпрограммы), которые можно вызывать по имени

  5) система отказов - если робот не может выполнить команду, он выдаёт сообщение отказ (например, ему мешает стена) другая причина отказа - ошибка в написании команды  6) режимы работы - робот работает в режиме програмного

1. var s,s1: string; i: integer; begin readln(s); s1: =s; for i: =1 to length(s1) do begin if s1[i]='а' then s1[i]: ='б' else   if s1[i]='а' then s1[i]: ='б' else   if s1[i]='б' then s1[i]: ='а' else     if s1[i]='б' then s1[i]: ='а'; end; writeln(s1); end. 2. var s,s1: string; i,k: integer; begin readln(s); s1: =s; i: =1; k: =1; while pos(' ',s1)> 0 do begin delete(s1,1,pos(' ',s1)); k: =k+1; end; writeln(k); end. 3. var s,famil,s1,imya,otch: string; i: integer; begin readln(s); famil: =copy(s,1,pos(' ',s)-1); delete(s,1,pos(' ',s)); imya: =copy(s,1,1); delete(s,1,pos(' ',s)); otch: =copy(s,1,1); s1: =concat(imya,'.',' ',otch,'.',' ',famil); writeln(s1); end.