Раз в слово многократно вставлялись пары букв, то нужно из получившейся строки многократно вырезать пары:
<span>ОВЫФФЫВОЖИИЖЖДДИЖЖРЭЭАУУФПРЛППЖИРАФОКЛЛКМТННТМОФФФАРИЖЛРП
</span>
<span>ОВЫЫВОЖЖЖИРАФПРЛЖИРАФОККМТТМОФАРИЖЛРП
</span>
<span>ОВВОЖИРАФПРЛЖИРАФОММОФАРИЖЛРП
</span>ООЖИРАФПРЛЖИРАФООФАРИЖЛРП
<span>ЖИРАФПРЛЖИРАФФАРИЖЛРП
</span>
<span>ЖИРАФПРЛЖИРААРИЖЛРП
</span>
<span>ЖИРАФПРЛЖИРРИЖЛРП
</span>
ЖИРАФПРЛЖИИЖЛРП
<span>ЖИРАФПРЛЖЖЛРП
</span>
ЖИРАФПРЛЛРП
<span>ЖИРАФПРРП
</span>
<span>ЖИРАФПП
</span>
<span>ЖИРАФ
Ответ: </span>ЖИРАФ
1. например арбуз и мяч (один размер и форма)
Подбирай по этому принципу.
var
A, B, C, i: Integer;
begin
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: ');
ReadLn (B);
Write ('Введите значение C: ');
ReadLn (C);
i := 0;
if A mod 2 = 0 then
Inc (i);
if B mod 2 = 0 then
Inc (i);
if C mod 2 = 0 then
Inc (i);
Writeln ('Количество четных чисел = ' + IntToStr (i));
end;
Uses crt;
const max=100;
var a: array [1..max] of real;
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7:2);
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do
begin
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);
write(a[i]:7:2);
end;<span>
end.</span>
Var
n : integer;
begin
read (n);
while n > 0 do
begin
write (n, ' ');
n := n - 1;
end;
end.