var a: integer;
begin
Randomize;
a := 100 + Random(900);
Writeln(a);
while (a > 0) and (a mod 2 = 0) do a := a div 10;
if a = 0 then
Write('да')
else
Write('нет')
end.
1)100101,130,36,35,3A 2)111001,210,25,64,9E 3)101001,232,72,156,8B 4)100011,124,78,541,2D
8192 байт = 8192*8 бит
Память для одного пикселя = 8192*8/(32*128) = 16 бит
Количество цветов = 2^16 = 65536
НА ЛОДКУ СКОЛЬКО ПОМЕЩАЕТСЯ РЫЦАРЕЙ И ОРУЖЕНОСЦЕВ?