program fantscrin;
var x_1,x_2,h,j,i: integer; f: boolean; a: array [1..3] of string; k,l: string;
function chek_number(a: integer): boolean;
var k: integer;
begin
if (a mod 2 < > 0) then
begin
chek_number: =false;
exit;
end;
while a > 0 do
begin
a: =a div 10;
k: =k+1;
end;
if (k = 3) then chek_number: =true
else chek_number: =false;
end;
begin
f: =false;
while f = false do
begin
write('введите 1-ое число: '); readln(x_1);
f: =chek_number(x_1);
end;
f: =false;
while f = false do
begin
write('введите 2-ое число: '); readln(x_2);
f: =chek_number(x_2);
if (f) then if (x_1 < > x_2) then f: =true
else f: =false;
end;
str(x_2,l);
str(x_1,k);
i: =1;
h: =1;
while i< =3 do
begin
j: =1;
while j< =3 do
begin
if (k[i] = l[j]) then
begin
a[h]: =k[i];
h: =h+1;
end;
j: =j+1;
end;
i: =i+1;
end;
writeln('');
i: =1;
while i < =3 do
begin
write (a[i], ' ');
i: =i+1;
end;
end.
Номер 1
использовать Робот
алг
нач
нц пока сверху свободно
вверх
кц
нц пока сверху стена
закрасить
влево
кц
нц пока сверху не стена
влево
кц
нц пока сверху стена
закрасить
влево
кц
вверх
вправо
нц пока снизу стена
закрасить
вправо
кц
нц пока снизу не стена
вправо
кц
нц пока снизу стена
закрасить
вправо
кц
кон
Номер 2
использовать Робот
алг
нач
нц пока сверху стена
закрасить
влево
кц
вправо
нц пока сверху стена
если справа не свободно то
вправо
все
если справа свободно то
вправо
если сверху стена то
закрасить
все
все
кц
влево
нц пока снизу не стена
вниз
кц
нц пока слева не стена и снизу стена
закрасить
влево
кц
кон
А это легко зайди на ютуб там будет всё