Раз в слово многократно вставлялись пары букв, то нужно из получившейся строки многократно вырезать пары:
<span>ОВЫФФЫВОЖИИЖЖДДИЖЖРЭЭАУУФПРЛППЖИРАФОКЛЛКМТННТМОФФФАРИЖЛРП
</span>
<span>ОВЫЫВОЖЖЖИРАФПРЛЖИРАФОККМТТМОФАРИЖЛРП
</span>
<span>ОВВОЖИРАФПРЛЖИРАФОММОФАРИЖЛРП
</span>ООЖИРАФПРЛЖИРАФООФАРИЖЛРП
<span>ЖИРАФПРЛЖИРАФФАРИЖЛРП
</span>
<span>ЖИРАФПРЛЖИРААРИЖЛРП
</span>
<span>ЖИРАФПРЛЖИРРИЖЛРП
</span>
ЖИРАФПРЛЖИИЖЛРП
<span>ЖИРАФПРЛЖЖЛРП
</span>
ЖИРАФПРЛЛРП
<span>ЖИРАФПРРП
</span>
<span>ЖИРАФПП
</span>
<span>ЖИРАФ
Ответ: </span>ЖИРАФ
Объяснение:
Вариант 6
const
N = 10;
var
a: array[1..N] of integer;
i, max1, max2: byte;
begin
randomize;
for i:=1 to N do begin
a[i] := random(10);
write(a[i]:3);
end;
writeln;
max1 := 1;
for i:=2 to N do
if a[i] > a[max1] then
max1 := i;
if max1=1 then
max2 := 2
else
max2 := 1;
for i:=2 to N do
if i <> max1 then // чтобы пропустить max1
if a[i] > a[max2] then
max2 := i;
writeln(max1,' ', a[max1]);
writeln(max2,' ', a[max2]);
end.
Вариант 8 не получилось
1. 3, потому что цикл if проверяется один раз.
2. 9, потому что цикл while не запустится ни разу.
3. 8, потому что 2 + 0 + 1 + 2 + 3 = 8.
===== PascalABC.NET =====
begin
var (x, y) := ReadReal2('Введите X, Y:');
if (x * x + y * y <= 9) and (x * x + y * y >= 4) and
(x <= 0) and (y >= 0) or
(x * x + y * y <= 4) and (x >= 0) and (y <= 0) then
Writeln('Да')
else
Writeln('Нет')
end.