использовать Робот
алг
нач
нц пока слева свободно
влево
кц
нц пока не слева свободно
закрасить
вверх
кц
нц пока слева свободно
вверх
кц
нц пока не слева свободно
закрасить
вверх
кц
влево
вниз
нц пока не справа свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока не справа свободно
закрасить
вниз
кц
кон
Пусть видеопамять компьютера имеет объем 512 кБайт. Размер графической сетки - 640 х 480. Сколько страниц экрана одновременно разместится в видеопамяти при палитре из 16 цветов; 256 цветов?
Для 16 (2^4) цветов нужно 4 бита на пиксель, для одного экрана нужно 640*480*4=1228800 бит=153600 байт, память 512*1024=524288 байт, посчитаем 524288 /153600=3,41333 т.е. 3 страницы.
Для 256 (2^8) цветов нужно 8 бит на пиксель, для одного экрана нужно 640*480*8=2457600 бит=307200 байт, память 512*1024=524288 байт
524288 /307200=1,70667 т.е. 1 страница.
за тридевять земель или к чёрту на кулички
Var s,s1:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
while s1<>'' do
begin
p:=pos(' ',s1);
if (p>1)and(s1[p-1]='я') then writeln(copy(s1,1,p-1));
delete(s1,1,p);
end;
<span>end.</span>