Всмысле? Это вопрос вообще?
Если это задание для Кумира, то вот нужный алгоритм:
использовать Робот
алг
нач
цел п
нц пока снизу свободно
вниз
кц
нц для п от 0 до 1
нц пока снизу стена
закрасить
влево
кц
нц пока снизу свободно и п=0
влево
кц
кц
вниз
нц для п от 0 до 2
нц пока сверху свободно и п<2
вправо
кц
нц пока сверху стена
закрасить
вправо
кц
кц
кон
128. Так как число y Будет постоянно вырастать в 2 раза. Следовательно 1 2 4 8 16 32 64 128
Program krab52;
uses crt;
const
n=10;
var
a:array [1..n] of integer;
i,max,min:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
randomize;
{заполняем массив}
for i:=1 to n do
begin
a[i]:=random(101);
write (a[i]:4);
end;
writeln();
{ищем макс и мин}
max:=a[1];
min:=a[1];
for i:=2 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
{выводим результат}
writeln();
writeln(' Максимальный элемент ',max);
writeln(' Минимальный элемент ',min);
writeln(' Размах между максимальным и минимальным элементами ',max-min);
end.
Var a,c:integer;begin a:=1; c:=0;while a <> 1024 do beginif a <> 1024 then beginc:=c+1; a:=a*2;end;end;writeln(c); end.