Уровень А 1. Введите следующие значения в таблицу Excel (рис. 2):

Рис. 2. Ввод данных в Excel

2. Обратите внимание, что входы (ячейки B1 и D1) пусты.

3. Весы выбираем произвольно. Порог также выбран произ- вольно. Пока используем 1.

4. Следующим шагом вычислим активацию, сложив взве- шенные входы. Активация будет рассчитана в ячейке C3. Для этого в ячейку C3 введите:

= B1 * B2 + D1 * D2.

5. Сравните активацию с порогом. Выберите логическую функ- цию из строки Формулы к ячейке С5.

6. Так как активация находится в ячейке C3, а порогом явля- ется ячейка C4, формула примет вид

C3 > = C4.

7. Для работы нейрона введите 1 в поле «Значение_если_ истина» и 0 в поле «Значение_если_ложь». Нажмите кнопку ОК (рис. 3).

Рис. 3. Окно логические функции

8. Вы создали модель для тестирования работы нейр​

А) Up & Down
б) IBM
в) Enter
15) а) Word           б) DOS                  в) Paintbrush
16) 5*30*70 = 10500 символов в тексте, так как каждый символ кодируется 1 байтом,  то объем будет равен = 10500  байтов
17) 32*64= 2048 символов на странице, т.к. 1 символ занимает 1 байт, то 1 страница занимает 2048 байтов = 2 Кб
640/2= 320 страниц книги поместится в оперативной памяти
18) 800*600= 480000 точек на экране дисплея
480000*24 =11520000 битов = 1440000 байтов = 1406 Кб требуется для хранения 1 страницы, тогда 1406*4 = 5624 Кб требуется для хранения 4 страниц изображения

Program  Ilgiz98;
var
  i: integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln('Программа находит 4-значные числа, которые делятся на 27');
  writeln('Список таких чисел:');
  for i:=1000 to 9999 do
    if (i mod 27)=0 then writeln(i);
end.

Program  Ilgiz98;
var
  mass: array [1..20] of integer;
  i, k, n: integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln('Среди элементов массива программа находит числа, которые больше заданного числа N и одновременно кратны 5');
  write('Введите число N ');  readln (n);
  writeln('*** Вычисляю... ***');
  k:=0;
  writeln('Массив чисел:');
  for i:=1 to 20 do
    begin
     mass[i]:=random(1000)-500;
     writeln(mass[i]);
     if (mass[i]>n) and ((mass[i] mod 5)=0) then k:=k+1;
  end;
  writeln();
  writeln('Всего найдено ',k,' таких чисел');
end.