Имеется текстовый документ, содержащий 20 страниц, полностью заполненных текстом таким образом, что на каждой странице ровно 30 строк по 40 символов в каждой строке. для кодирования символов использовался двухбайтный unicode. документ перекодировали, используя однобайтный ascii, при этом количество строк на странице увеличили вдвое, а количество символов в строке уменьшили на 15. из получившегося документа удалили несколько страниц и получили объем информации в документе на 31500 байт меньший, чем в исходном unicode документе. сколько страниц нового формата (кодированных в ascii) было удалено, если все они были полностью заполнены символами?

Определяем информационный объем i  текстового документа   i1=16  бит * 20*30*40=48000 байт определяем информ. объем перекодированного текста       i2=8 бит *х*(30*2)*(40-15)=1500х   байт,     где х количество оставшихся страниц составляем уравнение 48000 - 15000х = 31500? откуда х=11 страниц тогда   20 - х =20-11=9 страниц было удалено ответ 9 страниц

dim a(12), b(12), c(12)

input "введите размерность массивов а и в - m= ", m 

print "введите элементы массивов а и в: "

for i=1 to m

  input a(i), b(i) 

next i

s=0

for i = 1 to m

  c(i)= a(i) + b(m-i+1)

  s= s+c(i)

next i 

print "массив а: " 

for i = 1 to m

    print a(i);

next   i 

print

print "массив b: " 

for i = 1 to m

    print b(i);

next   i 

print

print "массив c: " 

for i = 1 to m

    print c(i);

next   i 

print

print "сумма элементов массива с ="; s

 

 

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.