решить все решить
гр. Шаровой К.А. Подготовка к Контрольной работе. Повторение темы "Текстовый редактор"

Повторите темы и ответьте на поставленные во Максимальный =20
< - "2"
10- - "3"
15- - "4"
19- - "5"

* Обязательно

Чему равна мощность данного алфавита: 0 1 2 3 4 5 6 7 8 9 + - * /= *

Мой ответ

Определите информационный объем предложения, если информационный вес каждого символа равен 8 бит: Весна идет, весне дорогу! *

1 Кб

200 байт

25 бит

25 байт

Информационное сообщение объёмом 450 битов состоит из 150 символов. Каков информационный вес каждого символа этого сообщения? *

3 байт

5 бит

5 байт

3 бит

Дан пример отформатированного текста. ответьте ниже на поставленные во Отметьте, какими свойствами обладает приведенный выше отформатированный текст: *

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

Все материалы, размещенные на сайте, созданы авторами сайта либо размещены пользователями сайта и представлены на сайте исключительно для ознакомления. Авторские права на материалы принадлежат их законным авторам. Частичное или полное копирование материалов сайта без письменного разрешения администрации сайта запрещено! Мнение администрации может не совпадать с точкой зрения авторов.

1)

var sum, number, n: integer;
begin
  sum := 0;
  number := 1;
  write('Введите n: ');
  readln(n);
  while (number <= n) do
  begin
    sum := sum + number;
    number := number + 2;
  end;
  write('Сумма равна ', sum);
end.

2)

var prod, number, n: integer;
begin
  prod:= 1;
  number := 3;
  write('Введите n: ');
  readln(n);
  while (number <= n) do
  begin
    prod := prod * number;
    number := number + 3;
  end;
  write('Произведение равно ', prod);
end.

3)

var number, n: integer;
begin
  number := 1;
  write('Введите n: ');
  readln(n);
  writeln('Таблица:');
  while (number <= n) do
  begin
    writeln(number:5, number*number:5, number*number*number:5);
    number := number + 1;
  end;
end.