Два текста содержат одинаковое количество символов. первый текст составлен в алфавите мощностью 4 символов, а второй 16 символов. во сколько раз отличается количество информации в этих текстах​

4

Объяснение:

Надо найти V2/V1.

x - кол-во символов. По условию x1=x2=x.

V2=x*16;

V1=x*4

Делим уравнения и получаем: V2/V1=4

const n = 12;
var
  a: array[1..n] of integer;
  i, count, s, max: integer;
begin
  write('Массив до: ');
  for i := 1 to n do begin
    a[i] := random(19) - 8;
    write(a[i], ' ');
    if(a[i] > max) then max := a[i];
    if(a[i] > 3) then inc(count) else
    if(a[i] < 0) then begin
      s := s + a[i];
      a[i] := i;
    end;
  end;
  writeln;
  write('Массив после: ');
  for i := 1 to n do write(a[i], ' ');
  writeln;
  writeln('1) Кол-во эл. в массиве,значения которых > 3: ', count);
  writeln('2) Сумма всех отрицательных эл. массива: ', s);
  writeln('3) Макс. элемент: ', max);
end.

Задание недоопределено, непонятно с 1 или с любого числа вычислять, непонятно, последовательных чисел или произвольных.

Я предложу решение следующей задачи

Составить программу вычисления произведения ПОСЛЕДОВАТЕЛЬНЫХ чисел натурального рада, начиная с N1, заканчивая N2. N1 и N2 вводятся с клавиатуры. 

 

Решение будет такое

П=1;  // здесь будем накапливать наше произведение

Ввод(N1, N2);

Если N2<N1 Тогда

    Сообщить("Неверные исходные данные!");

     Возврат;

КонецЕсли;

 

Для ц=N1 по N2 цикл

      П=П*ц;

КонецЦикла;

 

Сообщить("Произведение от "+N1+" до "+N2+" равно "+П);

 

Всё!

 

Ты не указал язык, которым владеешь, поэтому код написал на псевдоязыке, который ты без проблем переведёшь на известный тебе.

 

Успехов! В следующий раз более корректно и внимательно формулируй условие задачи.