1.составьте программу которая вычисляет произведение натуральных чисел кратных 13 в диапазоне от 100 до 405 2.найти произведение четных чисел от 11 до 36 3.найти значение функции у=5х+6 на отрезке [1; 4] с шагом 0, 4

Первая программа:

Var
   A:integer;
   P:real;
Begin
P:=1;
For A:= 100 to 405 do
    if A mod 13 = 0 then P:=P*A;
WriteLn('P = ',P);
End.

Результат работы программы:
P = 8.85587927807922E+56

Вторая программа:

Var
   A:integer;
   P:real;
Begin
P:=1;
For A:= 11 to 36 do
    if A mod 2 = 0 then P:=P*A;
WriteLn('P = ',P);
End.

Результат работы программы:
P = 4.37068711644365E+17

Третья программа:

Var x:real;
Begin
WriteLn('y(x) = 5*x +6');
x:=1;
Repeat
WriteLn('y(',x:0:3,') = ',5*x+6);
x:=x+0.4
Until x>4;
End.

Результат работы программы:
y(1.400) = 13
y(1.800) = 15
y(2.200) = 17
y(2.600) = 19
y(3.000) = 21
y(3.400) = 23
y(3.800) = 25

Uses graphabc;

var
    i, c: integer;
    ar: array[1..5]of integer;

begin
  for i := 1 to 5 do read(ar[i]);
  window.IsFixedSize := true;
  window.Init(0, 0, 800, 800, clDarkGray);
  window.CenterOnScreen;
  SetFontSize(32);
  for i := 1 to 5 do c := c + ar[i].ToString.Length;
  for i := 1 to 7 do writeln;
  write(' ':33 - c);
  for i := 1 to 5 do
  begin
    if(ar[i] mod 2 = 0) and (ar[i] mod 10 <> 0) then
     begin
      SetFontColor(clred);
      write(ar[i]);
    end
    else if(ar[i] mod 10 = 0) then
      begin
      SetFontColor(clblue);
      write(ar[i]);
    end
    else if(ar[i] mod 2 <> 0) then
    begin
      SetFontColor(clyellow);
      write(ar[i]);
    end
  end;
 end.

Информация может поступать от источника к приёмнику с сигналов самой разной физической природы. Например, сигнал может быть световым, звуковым, тепловым, электрическим или в виде жеста, движения, слова, сломанной веточки на дереве, другого условного знака.
Для того чтобы произошла передача информации, приёмник информации должен не только получить сигнал, но и расшифровать его Так, услышав звонок будильника, ученик понимает, что пришло время просыпаться и собираться в школу Телефонный звонок означает, что кому-то нужно с вами поговорить.
Звонок в дверь сообщает, что кто-то пришёл, а школьный звонок собирает ребят на урок или оповещает их о долгожданной перемене
Необходимо заранее договариваться, как понимать те или иные сигналы, другими словами, требуется разработка кода
Код - это система условных знаков для представления информации. Кодирование — это представление информации с некоторого кода
Множество кодов осень прочно вошло в нашу жизнь. Так, для общения в нашей стране используется код — русский язык. Код используется для оценки знаний в школе *число 5 — код отличных знаний, 4 — код хороших знаний, 3 — удовлетворительных, 2 — плохих*
С нотных знаков записывается(кодируется) любое музыкальное произведение. По номерному знаку можно узнать сведения об автомобиле и его владельце
В современных супермаркетах каждый товар имеет на упаковке штрих-код — метку, состоящую из чёрных линий Для чтения штрих-кодов применяют специальные сканеры С их в компьютер вводят информацию о стоимости покупки
Правила дорожного движения кодируются с наглядных символических рисунков. Всем хорошо известны следующие дорожные знаки

Свой код из шести цифр (почтовый индекс) имеет каждый населённый пункт Российской Федерации
По коду можно узнать, куда отправлять письмо. Например, код города Москвы и коды всех населённых пунктов Московской области начинаются с цифры 1
В середине XIX века французский педагог Луи Брайль придумал специальный представления информации для слепых «Буквы» этого кода выдавливаются на листе плотной бумаги Проводя пальцами по выступам, незрячие люди различают буквы и могут читать

В памяти компьютера информация представлена в двоичном коде в виде цепочек нулей и единиц. Каждому символу, вводимому с клавиатуры, соответствует уникальная цепочка из восьми 0 и 1 Например, буква "Q" имеет двоичный код 01010001, а цифра "7" — 00110111
Пример 1 Составим простейшую кодовую таблицу, поставив в соответствие каждой букве её порядковый номер в алфавите. Тогда скороговорка
ОТ ТОПОТА КОПЫТ ПЫЛЬ ПО ПОЛЮ ЛЕТИТ
в закодированном виде будет выглядеть так:
16 20 20 16 17 16 20 1 12 16 17 29 20
17 29 13 30 17 16 17 16 13 32 13 6 20 10 20
Пример 2 Можно закодировать информацию, заменяя каждую букву исходного текста, например, следующей после неё буквой в алфавите. Такойкод называют шифром замены. В этом случае исходное сообщение
АЛ ЦВЕТ МИЛ НА ВЕСЬ СВЕТ
примет вид
БМ ЧГЁУ НКМ ОБ ГЁТЭ ТГЁУ
О кодировании информации с языка жестов можно прочитать в электронном приложении к учебнику.

кодирования информации
Одна и та же информация может быть представлена разными кодами, иначе говоря, в разных формах.
Люди выработали множество форм представления информации. К ним относятся: разговорные языки (русский, английский, немецкий — всего более 2000 языков), язык мимики и жестов, язык рисунков и чертежей, научные языки (например, язык математики), языки искусства (музыка, живопись, скульптура), специальные языки (азбука Брайля, азбука Морзе, флажковая азбука).
кодирования (форма представления) информации зависит от цели, ради которой осуществляется кодирование. Такими целями могут быть сокращение записи, засекречивание (шифровка) информации, удобство обработки и т. п.
Чаще всего применяют следующие кодирования информации:
1) графический — с рисунков или значков;
2) числовой — с чисел;
3) символьный — с символов того же алфавита, что и исходный текст.
Переход от одной формы представления информации к другой, более удобной для хранения, передачи или обработки, также называют кодированием.
Действия по восстановлению первоначальной формы представления информации принято называть декодированием. Для декодирования надо знать код.