Пока сверху свободно вверх
закрасить
пока снизу не свободно то закрасить влево
если сверху свободно то вверх
вверх
влево
влево
пока снизу не свободно то закрасить вправо
вправо
пока снизу не свободно то закрасить вправо
Uses Crt;
var
n:integer;
begin
repeat
textcolor(15);
Write('n='); Read(n);
if n=0 then begin
textcolor(LightGreen);
Writeln('Работа завершена');
textcolor(15);
end
else
if (n>9) and (n<100) then begin
n:=n-10;
Writeln('Результат: ',n)
end
else
if (n>99) and (n<1000) then begin
n:=n-100;
Writeln('Результат: ',n)
end
else begin
textcolor(LightRed);
Writeln('Недопустимое значение');
end;
until n=0;
ReadKey { для PascalABC.NET можно удалить эту строку }
end.
1200*1200=1440000 пикселей все изображение
N=2^i ⇒i=3
1440000*3=4320000бита\8=540000 байта/1024≈527 Кбайта