Использовать Робот
алг
нач
закрасить
закрас
закрас
кон
алг закрас
нач
нц пока слева свободно
закрасить
влево
кц
нц пока сверху свободно
закрасить
вверх
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока снизу свободно
закрасить
вниз
кц
кон
Const n = 10;
var i,k,c: integer;
a:array[1..n] of integer;
begin
//Заполняем массив и выводим на экран
for i:=1 to n do begin
a[i]:=random(150)-50;
write(a[i]:5);
end;
writeln;
//Вывод элементов кратных пяти
k:=0;
for i:=1 to n do
if a[i] mod 5 = 0 then begin
write(a[i]:5);
k:=k+1;
end;
writeln;
writeln('Всего кратных пяти - ',k);
end.
N=16 цветов
N=2^i;
16=2^4 => i=4 бит на пиксель
k=<span>25×25 = 625 пикселей
I=k*i=</span><span>625*4=2500 бит</span>
1) Правая кнопка мыши на рабочем столе - Создать - Документ Microsoft Office Word
2) Пуск - Все программы - Microsoft Office - Microsoft Office Word