Ответ: Находил я его сайт http://mph.phys.spbu.ru/~nemnugin, но ничего скачать оттуда не смог. Возможно, что стоит попросить у автора nemnugin@mph.phys.ru?

Ответ: Спасибо за отзыв. Но цветной читается хуже, ИМХО. Да, еще приглашу Вас на наш форум www.yourpascal.com, на котором обсуждаются не только вопросы программирования

Ответ: Это срочно? По-дубовому решить можно. Но хотелось бы получше, а тут уже подумать нужно ...

Ответ: Вот решение:
const
binChars: Set of char = [''0'',''1''];
hexChars: Set of Char = [''0''..''9'',''A''..''F'',''a''..''f''];
hexStr : String[16] = ''0123456789ABCDEF'';

function BinToHex(Source: String): String;
var i: Integer; buf: Word;
begin BinToHex:=Source; if Source='''' then Exit;
for i:=1 to length(Source) do if not (Source[i] in binChars) then Exit;
buf:=0;
for i:=1 to length(Source) do buf:= buf*2 + ord(Source[i])-48;
Source:='''';
while buf <> 0 do begin
i:=Buf and $0F; Source:=hexStr[i+1] + Source; Buf := Buf shr 4; end;
BinToHex:=Source end;

function HexToBin(Source: String): String;
var i: Integer; buf: Word;
begin HexToBin:=source; if Source='''' then Exit;
for i:=1 to length(Source) do if not (Source[i] in hexChars) then Exit;
Buf:=0; for i:=1 to length(Source) do
case Source[i] of
''0''..''9'': Buf:= Buf*16 + ord(Source[i]) - 48;
''A''..''F'': Buf:= Buf*16 + ord(Source[i]) - 55;
''a''..''f'': Buf:= Buf*16 + ord(Source[i]) - 87; end;
Source:=''''; while Buf <> 0 do begin
Source:= hexStr[Buf mod 2 + 1] + Source; Buf := Buf div 2 end; HexToBin:=Source end;
var
s: String;
BEGIN
WriteLn(''------------------'');
s:=''10101111''; WriteLn(s);
s:=BinToHex(s); WriteLn(s);
s:=HexToBin(s); WriteLn(s); END.

Ответ: :)) Поинтересуюсь у сотоварища. Его пока в Инете не видно

Ответ: Спасибо за отзыв. Нас двое: так что за товарища пока сказать не могу. А я - такое отношение, что готов спросить: "а что такое "Юнитекс"? :))

Ответ: Пожалуйста, по-моему, ничего сложного:
program Anton;
const
max = 20; m = 200; m2 = m div 2;
var
a: Array[1..max] of integer;
i, j, count, max_el, buf: Integer; is_odd: Boolean;
BEGIN
WriteLn; count:=max;
for i:=1 to max do begin a[i]:=random(m) - m2; write(a[i]:8) end;
WriteLn(''----------------'');
max_el:=a[i]; for i:=2 to max do if a[i] > max_el then max_el:=a[i];
i:=1;
while i <= count do begin
buf:=a[i]; is_odd:=false;
while (not is_Odd) and (buf <> 0) do begin
is_odd:=odd(buf mod 10); buf:=buf div 10 end;
if is_odd then begin count:=count -1;
for j:=i to count do a[j]:=a[j+1] end
else i:=i + 1
end;
for i:=1 to count do write(a[i]:8); WriteLn;
for i:=count + 1 to max do a[i]:=max_el;
WriteLn(''----------------'');
for i:=1 to max do write(a[i]:8); WriteLn; END.

Ответ: Конечно, не должен. Но ответить на Ваш вопрос, не видя программ - невозможно

Ответ: Вот вариант простейшего решения этой простой задачи:
program dec27;
uses CRT;
var
number, n: Word; mul: Longint; A : Integer;
s, s1: String;
BEGIN
ClrScr;
Number:=123; {Write(''''Введите число: ''''); ReadLn(Number);}
n:=Number;
mul:=1; while n <> 0 do begin
mul:=mul*(n mod 10); n:=n div 10; end;
WriteLn(Number,'''' '''', mul);
repeat
A:=2; {Write(''''Введите число, которое .... : ''''); ReadLn(A);}
until (A >=0) and (A<10);
Str(Number, s); Str(A, s1);
Write(''''Цифра '''',A,'''' в числе '''', Number,'''' '''');
if pos(s1, s) <> 0 then WriteLn(''''содержится'''') else WriteLn(''''не содержится'''');
for n:=1 to 999 do begin
if NOT Odd(n+1) then begin GotoXY(2, WhereY); Write(n:5) end;
if (n + 2) mod 3 = 0 then begin GotoXY(20, WhereY); Write(n:5) end;
if (n + 3) mod 4 = 0 then begin GotoXY(40, WhereY); Write(n:5) end;
if (n + 4) mod 5 = 0 then begin GotoXY(60, WhereY); Write(n:5) end; WriteLn; end;
Number:=1232; {Write(''''Введите число: ''''); ReadLn(Number);}
repeat
A:=2; {Write(''''Введите число, которое .... : ''''); ReadLn(A);}
until (A >=0) and (A<10);
Str(Number, s); Str(A, s1); Write(Number,'' '',A,'' '');
while pos(s1, s) <> 0 do delete(s, pos(s1, s), 1);
Val(s, n, A); WriteLn(n); END.

Ответ: Извините за глупый вопрос, а что это за штука "Пэинтовский BitMaP"? Что за формат BMP знаю, а это что?