Для записи текста использовался 256 символьный алфавит.какое количество информации в килобайтах содержит сообщение содержащее 3072 символа.

При использовании 256-символьного алфавита для записи одного символа требуется log(2)256 = 8 бит = 1 байт.
Количество информации в сообщении = 3072*1 байт = 3072/1024 Кбайт = 3 Кбайта

Практически во всех языках программирования применяются компоненты, которые называются циклами. Возможно обойтись и без них, но этот подход редко применяется среди программистов, поскольку современные приложения используют пакетную обработку данных. Каждый разработчик программного обеспечения должен решать самостоятельно, стоит ему применять циклы или нет. Специалисты, опираясь на психологию человека, разработали специализированный алгоритм. Если выполнять все его пункты, то результат будет поразительным. Инструкцию также можно использовать для изучения какой-либо другой дисциплины, но в этом случае ее необходимо переделать. Для теории применяется такой алгоритм: Достоинства и недостатки применения циклов. Синтаксис, необходимый для использования циклических операторов. Общая информация о блок-схемах. Абстрактные модели. Далее следует разобрать подробно каждый пункт инструкции. Пропускать их запрещается. Обучаемый потеряет зря время либо сам процесс обучения существенно увеличится. Для начала нужно разобрать основные достоинства и недостатки применения циклов в Турбо Паскале.

Объяснение:

Программа для 1.
var
  n,b,s:integer;
begin
  Write('Введите натуральное число и значение b: ');
  Read(n,b);
  if n>b then Writeln('Неверно')
  else begin
    s:=0;
    while n>0 do begin
      s:=s+n mod 10;
      n:=n div 10
    end;
    if s mod 2=0 then Writeln('Верно') else Writeln('Неверно')
  end
end.

Программа для 2.
var
  k,m,n,b,s:integer;
begin
  Write('Введите натуральное число и значения m,n: ');
  Read(k,m,n);
  if k mod n <> 0 then Writeln('Неверно')
  else begin
    s:=0;
    while k>0 do begin
      s:=s+k mod 10;
      k:=k div 10
    end;
    if s>m then Writeln('Верно') else Writeln('Неверно')
  end
end.