Var
i : longint;
begin
for i:=100 downto 10 do writeln(i);
<span>end;</span>
<span>Все сильнее и сильнее высокие технологии входят в нашу жизнь. Компьютеризированные телескопы, множество гаджетов- это не воспаленная фантазия писателей, а наше время. Одной из таких "фантастических чуд"- роботы. Роботы все чаще и чаще заменяют человека на множествах работ, где "железному другу" проще, чем человеку. Посредством алгоритмов роботы решают самые запутанные задачи. К примеру, роботизированный станок используется на множествах фабрик, от производства конфет и до заводов по сборке автомобилей. Почти каждая деталь сделана специальным станком, подчиняющийся алгоритмам и командам, созданных человеком!</span>
Дано: K=64*128
I=8Кбайт
Найти N
K=64*128=8192 пикселей всего
I=8 КБайт=65536 бит
I=K*i
i= 65536/8192=8 бит
По формуле N=2^i
следует что N=2^8=256
Ответ: 256 Цветов в палитре изображения
var
a:byte;
begin
write('Введите число '); readln(a);
if (a div 10 = 4) or (a mod 10 = 4) then
writeln('В число входит цифра 4')
else
writeln('цифра 4 в число не входит');
end.