Ответ:
2 бита, 512 битов, 50 байтов, 500 байтов, 0,5 кбайта
<span>миг-маг-мак-бак-бек-век
</span><span>бант-кант-карт-кара-кора-коса
</span><span>Шар-Пар-Пир-Тир-Тор-Том-Лом-Лоб-Луб-Куб
</span><span>муха-мура-тура-тара-кара-каре-кафе-кафр- каюр-крюк-урюк-урок-срок-сток-стон-слон </span>
<em>В порядке возрастания количества страниц:</em>
АГВБ
Ответ:
program Test;
var
a: array of Integer;
n, i, c, left, right: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
SetLength (a, n);
Write ('Введите элементы массива:');
for i := Low (a) to High (a) do
Read (a [i]);
c := 0;
for i := Low (a) to High (a) do begin
if i > Low (a) then
left := i - 1
else
left := High (a);
if i < High (a) then
right := i + 1
else
right := Low (a);
if a [left] = a [right] then begin
Inc (c);
Write (i + 1, ' '); //для проверки
end;
end;
WriteLn;
WriteLn ('Количество = ', c);
ReadLn; ReadLn;
end.