Задача 1 Робот где-то в квадрате 3х3, покрасить центральную клетку, в ней же остановиться.
move left(0) Сделать шаг влево
mоvе right(0) Сделать шаг вправо
move upО Сделать шаг вверх
mоvе dоwn (0) Сделать шаг вниз
wal from upo Проверить, есть ли стена сверху
wall from down() Проверить, есть ли стена снизу
walt from_left() Проверить, есть ли стена слева
wall from_right) Проверить, есть ли стена справа
free_from_up() Проверить, свободно ли сверху
free_from_down () Проверить, свободно ли снизу
free from_left() Проверить, свободно ли слева
free_from_right) Проверить, свободно ли справа
fill_cell() Закрасить клетку
cell is_filled() Проверить, закрашена ли клетка
cell_is_cleano Проверить, чиста ли клетка​

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.

24576/8=3072 символа

ответ: 3072 символа

var

i,n: integer;

begin

read(n);

for i: =0 to 3 do

writeln (4*n-i);

end.

1) отр(х+отр(х*у))=отр(х+отр(х)+отр(у))=отр(1+отр(у))=отр(1)=0

2) отр(ху)+отр(х)+у+z=отр(х)+отр(у)+отр(х)+у+z=отр(х)+1+z=1

3)а*с+а+а*отрв+отрс*а=а+а*отрв=а

4)отр(отрх*отру)+отрх=х+у+отрх=1