Перевести из Паскаля на с++ uses crt;
const max=100;
var a:array[1..max] of integer;
n,i,k:byte;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
k:=0;
for i:=2 to n-1 do
if (a[i]-a[i-1])<>(a[i+1]-a[i])then
begin
k:=1;
break;
end;
if k=1 then write('Это не арифметическая прогрессия!')
else write('Это арифметичевкая прогрессия, ее разность=',a[2]-a[1]);
readln
end.

Объяснение:

непозиционных системах счисления вес цифры (т. е. тот вклад, который она вносит в значение числа) не зависит от ее позиции в записи числа. Так, в римской системе счисления в числе ХХХII (тридцать два) вес цифры Х в любой позиции равен просто десяти.

В позиционных системах счисления вес каждой цифры изменяется в зависимости от ее положения (позиции) в последовательности цифр, изображающих число. Например, в числе 757,7 первая семерка означает 7 сотен, вторая — 7 единиц, а третья — 7 десятых долей единицы.

Сама же запись числа 757,7 означает сокращенную запись выражения

700 + 50 + 7 + 0,7 = 7 . 102 + 5 . 101 + 7 . 100 + 7 . 10—1 = 757,7.

 1)2,5 МБ = 16777216 б 
5)найдем количество  информации в одном символе. Оно равно 7 битlog2(128) = 7 (логарифм от 128 по основанию 2) У нас 800 символов, каждый по 7 бит итого 5600 битВ одном байте 8 бит: 5600/8бит = 700 байт. В 1кбайте 1024 байта (по старой классификации), итого700/1024 = 0.68359375 килобайтаответ:  0.68359375 килобайта
2) При алфавитном подходе к измерению количества информации известно, что если мощность алфавита N (количество букв в алфавите), а максимальное количество букв в слове, записанном с этого алфавита – m, то максимально возможное количество слов определяется по формуле L=Nm. Из условия задачи известно количество слов (L=2048) и количество букв в каждом слове (m=2). Надо найти N из получившегося уравнения 2048=N4. Следовательно, N=2.
ответ: 4 буквы.