Var
n, i : longint;
begin
readln(n);
for i:= 2 to n do
if (i mod 2 <> 0) and (i mod 3 = 0) then
begin
write(i);
write(' ');
end;
end;
end.
Раз в слово многократно вставлялись пары букв, то нужно из получившейся строки многократно вырезать пары:
<span>ОВЫФФЫВОЖИИЖЖДДИЖЖРЭЭАУУФПРЛППЖИРАФОКЛЛКМТННТМОФФФАРИЖЛРП
</span>
<span>ОВЫЫВОЖЖЖИРАФПРЛЖИРАФОККМТТМОФАРИЖЛРП
</span>
<span>ОВВОЖИРАФПРЛЖИРАФОММОФАРИЖЛРП
</span>ООЖИРАФПРЛЖИРАФООФАРИЖЛРП
<span>ЖИРАФПРЛЖИРАФФАРИЖЛРП
</span>
<span>ЖИРАФПРЛЖИРААРИЖЛРП
</span>
<span>ЖИРАФПРЛЖИРРИЖЛРП
</span>
ЖИРАФПРЛЖИИЖЛРП
<span>ЖИРАФПРЛЖЖЛРП
</span>
ЖИРАФПРЛЛРП
<span>ЖИРАФПРРП
</span>
<span>ЖИРАФПП
</span>
<span>ЖИРАФ
Ответ: </span>ЖИРАФ
Выше ответ более простой, но может Вам нужно что-то сложное?
Например:
1) 10101(2)<span> = 1∙2^</span>4+0∙2^3+1∙2^2+0∙2^1+1∙2^0<span> = 16+0+4+0+1 = 21(</span>10)
2) 11101(2)<span> = 1∙2^</span>4+1∙2^3+1∙2^2+0∙2^1+1∙2^0<span> = 16+8+4+0+1 = 29(</span><span>10)
3) </span>01010(2)<span> = 0∙2^</span>4+1∙2^3+0∙2^2+1∙2^1+0∙2^0<span> = 0+8+0+2+0 = 10(</span>10)
4) 11111(2)<span> = 1∙2^</span>4+1∙2^3+1∙2^2+1∙2^1+1∙2^0<span> = 16+8+4+2+1 = 31(</span><span>10)
5) 01110(2) = </span>0∙2^4+1∙2^3+1∙2^2+1∙2^1+0∙2^0<span> = 0+8+4+2+0 = 14(</span>10)
<span>10101(2) - 10101 в двоичной системе счисления
21(10) - 21 в десятичной системе счисления
1*2^4 - 1 умножить на 2 в четвёртой степени
* - знак умножить</span>