Не оставляйте меня одну с поставлю, как лучший ответ, если правда ) 1. в одном из способов представления unicode каждый символ закодирован 2 байтами. определите информационный объем предложения, состоящего из 38 символов. 2. рассказ, набранный на компьютере, содержит 4 страницы, на каждой странице 48 строк, в каждой строке 64 символа. определите информационный объём рассказа в кодировке кои-8, в которой каждый символ кодируется 8 битами. 3. после перекодировки информационного сообщения на языке, первоначально записанного в 8 битном коде кои – 8 в 16-битную кодировку unicode, его объем увеличился на 2048 байт. найдите объем сообщения до перекодировки?

Восновном просто перемножить вес файла = вес одного символа * кол-во символов в файле 1 38 * 2 = 76  байт 2 64 * 48 * 4       *     8 = 98304 бита = 12288 байт = 12 кбайт   (кол-во симв)   *     вес символа 3 k - кол - во символов, тогда 2048 + 8 * k = 16 * k объем первоначального равен 8k из уравнения следует что 8k = 2048 бит = 256 байт

1)  32 (кол-во символов) * 2 (байт на символ) = 64 байта = 512 бит2)  64  *  48  *  4  =  12288 символов  *  8  (т. к. 1 символ кодируется 8 битами)  =98304/8  =  12288  /  1024  =  12кбайт3)  2048 байт. блин, конечно не уверена, но всё  

Программа может быть такой: uses crt; var a, b, c: integer; begin clrscr; write('a='); readln(a); write('b=');   readln(b); write('c='); readln(c); if (a mod 5)=0 then writeln(a, '      - кратно 5') else writeln (a, '      - не кратно 5'); if (b mod 5)=0 then writeln(b, '      - кратно 5') else writeln (b, '      - не кратно 5'); if (c mod 5)=0 then writeln(c, '      - кратно 5') else writeln (c, '      - не кратно 5'); readln; end.

Целочисленная арифметика хороша тем, что вычисления в ней точны. но взамен она требует для представления чисел достаточного большого количества байт и не случайно от переменных типа byte и integer, которые в памяти занимали 1 и 2 байта соответственно, создатели трансляторов с языка паскаль пришли к четырехбайтному longint, а впоследствии и к восьмибайтному int64. максимальное число, которое можно представить в longint, равно 2 147 483 647, а в int64 оно равно 9 223 372 036 854 775 807. много ли это в применении к нашей ? нам надо найти и вывести произведение четырехзначных чисел, значение которых не превышает 5000. допустим, что все они равны 5000 и тогда количество членов в таком произведении может быть оценено при несложного расчета. итак, мы можем получить произведение максимум пяти таких чисел. а если использовать longint - вообще всего два числа: но это по верхнему пределу. по нижнему, при значении, равном 1000, эти оценки увеличиваются до 6 и 3 чисел соответственно (достаточно количество разрядов в максимально представимом числе разделить на 3). что показывают эти расчеты? всего лишь непригодность стандартной целочисленной арифметики языка паскаль (а также других традиционных алгоритмических языков) для решения поставленной в общем случае. беда еще и в том, что большинство трансляторов строят программу так, что в ней переполнение разрядной сетки (т.е. выход числа за отведенный ему диапазон представления) по умолчанию не контролируется. другими словами, есть риск получить совершенно неверный результат и даже не подозревать об этом! на может прийти арифметика с плавающей точкой, пригодная для отображения действительно огромных чисел. но у неё есть свой недостаток - она неточна. в языке паскаль тип double может оперировать числами до приблизительно , а вот количество точных цифр при этом составит 15-16. но даже такая точность выше, чем дает стандартный тип longint. на основании всего вышеизложенного и с учетом того, что тип int64 реализован далеко не во всех версиях языка паскаль,  можно принять следующий алгоритм: 1. получаем искомые числа, генерируя не более, скажем, 50 элементов. я считаю, что для любого разумного решения такого количества чисел будет достаточно (мы просто не будем допускать, чтобы к превышало 50). 2. нелепый критерий отбора чисел (квадрат первой цифры меньше квадрата последней цифры числа) заменим разумным. ведь цифра - суть однозначное число, а если квадрат одного числа меньше квадрата второго, то и сами числа находятся в таком же соотношении, поэтому зачем возводить в квадрат? . итак, критерием отбора будет "первая цифра меньше последней цифры числа". 3. находим произведение элементов массива в представлении double. var   i,n,k: integer;   p: double; begin   randomize;   write('введите количество чисел к (1..50): '); readln(k);   if (k< 1) or (k> 50) then write('неверное к')   else begin       p: =1;       writeln('отобранные случайные числа на интервале [1000; 5000]');       for i: =1 to k do       begin           n: =random(4501)+500; { диапазон [500; 5000] }           if n> =1000 then               if (n div 1000)< (n mod 10) then               begin write(n: 5); p: =p*n end;       end;       writeln;       if p> 1 then writeln('произведение отобранных чисел равно ',p)       else writeln('к сожалению, отобранных чисел нет')   end  end. тестовые решения: введите количество чисел к (1..50): 15 отобранные случайные числа на интервале [500; 5000]   3208 4925 1279 2528 1637 4979 3536 4416 2116 3655 произведение отобранных чисел равно 5.02832546192399e+34 введите количество чисел к (1..50): 3 отобранные случайные числа на интервале [500; 5000]   3385 1177 произведение отобранных чисел равно 3984145 введите количество чисел к (1..50): 1 отобранные случайные числа на интервале [500; 5000]   3838 произведение отобранных чисел равно 3838 введите количество чисел к (1..50): 1 отобранные случайные числа на интервале [500; 5000] к сожалению, отобранных чисел нет