В номерах не понятно где робот изначально находиться!
в 1 номере я поставил нач.точку робота в самый первый закрашенный правый квадрат, во 2 номере в самый низ,в квадрат где заканчивается палка)
1 номер:
использовать Робот
алг
нач
нц пока сверху не свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока справа не свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока справа не свободно
закрасить
вниз
кц
кон
2 номер:
использовать Робот
алг
нач
нц пока сверху свободно
вверх
закрасить
кц
нц пока сверху не свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока сверху не свободно
закрасить
вправо
кц
вверх
нц пока снизу свободно
влево
кц
нц пока снизу не свободно
закрасить
влево
кц
нц пока снизу свободно
влево
кц
нц пока снизу не свободно
закрасить
влево
кц
кон
остальное сам делай,мне лень)
ответ не правильный, там должно быть 8 пункты ABDCE 2+1+3+2=8
А) Людоед,мальчик с пальчик,3 богатыря,Колобок.
Б)Колобок.
В)Дом бабы яги,Дровосек,Страшила,Снегурочка.
Г)Чебурашка,Дом бабы яги,Буратино.
Я не знаю как кодируются русские буквы, но глядя на цифровую последовательность
1 2 1 2 1 3
225 242 225 242 225 244
тут всего 3 буквы получается
Буквы идут поочереди, только последняя отличается
т.е должно быть 3 разные буквы
я думаю это в) АРАРАТ
тут 3 буквы А, Р, Т
Const
K = 13;
Var
A:array[1..K] of integer;
i,j:integer;
Begin
{Заполнение массива}
Write('Исходный массив: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
WriteLn;
{Сортировка пузырьком}
For i:= 1 to K do
For j:= 1 to K-1 do
if A[j]>A[j+1] then Swap(A[j],A[j+1]);
{Вывод массива}
Write('Отсортированный массив: ');
For i:= 1 to K do
Write(A[i],' ')
End.
