с проблемой на бесконечном поле имеется стена длины отрезков стены неизвестны. истина состоит из одного вертикального и 3 равных горизонтальных отрезков отрезки стены расположены буква е все отрезки неизвестны длины. робот находится в клетке расположенной непосредственно слева от верхнего конца вертикального отрезка на рисунке указан один из возможных расположения стен робота робот обозначена буквой Р Напишите для робота алгоритм закрывающая все клетки расположенные над нижним горизонтальным отрезком стены робот должен закрасить все клетки удовлетворяющие данному условию ​

type

firma = record

 fam:string;

 adres:string;

 end;

var

mas:array[1..8] of firma;

i,k:integer;

str:string;

begin

 mas[1].fam:='Кузин';

 mas[2].fam:='Куравлев';

 mas[3].fam:='Кудин';

 mas[4].fam:='Кульков';

 mas[5].fam:='Кубиков';

 mas[6].fam:='Иванов';

 mas[7].fam:='Петров';

 mas[8].fam:='Сидоров';

 mas[1].adres:='ул.Мира,7';

 mas[2].adres:='ул.Маркса,6';

 mas[3].adres:='ул.Комсомольская,17';

 mas[4].adres:='ул.Ленина,5';

 mas[5].adres:='ул.Центральная,18';

 mas[6].adres:='ул.Клубная,26';

 mas[7].adres:='ул.Чехова,2';

 mas[8].adres:='ул.Амосова,68';

 write('Введите фамилию сотрудника ->  ');readln(str);

 k:=0;

 for i:=1 to 8 do

 begin

   if str=mas[i].fam then

   begin

     k:=k+1;

     writeln('фамилия - ',mas[i].fam);

     writeln('адрес   - ',mas[i].adres);

   end;

 end;

 if k=0 then writeln('такого сотрудника нет!');

 readln;

end.

Объяснение:

Это ответ на задание 2

Qiwi +79172489972

Microsoft Word - это текстовый редактор от компании Microsoft. Программа обычно входит в пакет офисных программ Microsoft Office, но может поставляться и отдельно. Является платной и стоит просто бешеных денег для организаций (около 19000руб, т.к. продается только в составе пакета Microsoft Office Pro), и больших денег для домашних пользователей (около 4000р), но никого это не смущает, все используют пиратские версии. Программа позволяет редактировать тексты любой сложности, вставлять в документы картинки, таблицы и прочее нестандартное содержимое. Аналогом Microsoft Word является бесплатный Writer из пакета LibreOffice и OpenOffice, который позволяет делать всё то же самое, только бесплатно, хотя и немного сложнее местами. Microsoft Word официально работает только на компьютерах с ОС Microsoft Windows и Apple OS X, хотя возможен и его запуск на ОС семейства Linux через Wine, но корректная работа программы не гарантируется. Microsoft Word является самым распространенным текстовым редактором в мире.