Отправлено: 14.06.15 06:33. Заголовок: 27 (C4) последний тренировочный вариант

var x, x_lng, i, cnt: integer;
x_str, res_str: string;
prev_is_1: boolean;


function conv_1 (intg: integer) : string;
var
tmp: string;
k: integer;
begin
conv_1 := '';
{ не равно 1, так как последнюю в цикле, первую в двоичном числе единицу надо отбросить по условию конверсии }
while (intg <> 1) do
begin
k := intg mod 2;
str(k, tmp);
conv_1 := conv_1 + tmp;
intg := intg div 2;
end;
end;

begin
readLn(x);
x_str := conv_1(x);
x_lng := length(x_str);

prev_is_1 := false;
cnt := 0;
res_str := '';

for i := 1 to x_lng do
begin
if(prev_is_1 = false) then
begin
if(x_str[ i ] = '0') then
begin
res_str := res_str + 'Е';
cnt := cnt + 1;
end
else
prev_is_1 := true;
end
else
begin
if(x_str[ i ] = '0') then
begin
res_str := res_str + 'Р';
end
else
begin
res_str := res_str + 'А';
cnt := cnt + 1;
end;

prev_is_1 := false;
end;
end;

writeLn(res_str);
writeLn(cnt);
end.

Вроде работает, хотя не запутаться с таким количеством блоков было сложно...