Презентация по теме умный дом сделайте в ворде 1 слайд:название 2 слайд:содержание презентации Последний слайд:источники(сайты, с которых инфа(ссылки), не менее 5 Минимум 9-12 слайдов с информацией Презентация должна быть оформлена по всем правилам Заголовки и текст одного размера.Содержание соответствует картинке.

var

  a : array [1..9] integer;

  i : integer;

begin

  for i := 1 to 9 do

    if i mod 3 = 1 then a[i] := i

    else if i mod 3 = 2 then a[i] := sqr (i - 1)

    else a[i] := a[i - 1] div i;

  for i := 1 to 9 do

    write (a[i], ' ');

end.

 

var

  b, a : array [1..15] of integer;

  i, sa, sb : integer;

begin

  randomize;

  sa := 0; sb := 0;

  for i := 1 to 15 do

  begin

    a[i] := trunc (random (100)) + 1;

    write (a[i], ' ');

    sa := sa + a[i];

  end;

  writeln;

  for i := 1 to 15 do

  begin

    b[i] := sqr (a[i]) - a[i]);

    write (b[i], ' ');

    sb := sb + b[i];

  end;

  writeln;

  writeln (abs (sb - sa));

end.

  

Сначала переводим числа 6 и 4 в 2-ную систему. Для этого делим всё время на 2 с остатком:

6 / 2 = 3 (остаток 0)

3 / 2 = 1 (остаток 1)

Выписываем последний результат деления (1) и все остатки, начиная с конца:

1 1 0

Таким образом:

Аналогично:

Умножаем: 110 х 100 = 11000

Тут действует такое же правило, что и для обычных десятичных чисел: чтобы умножить на 10, 100, 1000, 10000 и т.д., достаточно просто дописать справа столько нулей, сколько их есть в этом множителе.  А вобще умножение двоичных чисел выполняется точно так же, как и десятичных - если нужно, то в столбик. Двоичную "Таблицу умножения" очень легко выучить наизусть:

0 х 0 = 0

0 х 1 = 0

1 х 0 = 0

1 х 1 = 1

Когда при умножении в столбик мы складываем промежуточные результаты, правила тоже простые:

0 + 0 = 0

0 + 1 = 1

1 + 0 = 0

1 + 1 = 10

(смотри пример умножения на прикреплённом рисунке)