Если я правильно понял задание, то примерно так:
Художник Шишкин пейзажист.
Композитор Моцарт классик.
Озеро Байкал большое.
Город Лондон столица.
Const D = 2.54;
var i: integer;
rez: real;
begin
for i := 1 to 10 do begin
rez := i * D;
writeln( i, ' см = ', rez, ' дюйм' );
end;
<span>end.</span>
1.
16 кодов можно составить из 4-х бит.
2. задача, обратная первой:
3 бита нужно, чтоб можно было составить 8 разных кодов.
var s,i:integer;
begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.