Текст, содержащий 80 страниц (на каждой странице 32 строки по 50 символов в каждой) закодирован в 8-битной кодировке. определите информационный объем.

Вданном случае, из-за того что кодировка 8 бит - один символ имеет объём один байт. умножаем количество страниц на количество строк и на количество символов. получаем: 80*32*50 = 128000 байт = 125 килобайт.

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.