Информатика 19 во по Excel, ответы кратко

Нужно найти количество программ, которые из 1 получают 10, количество программ, которые из 10 получают 21, но не проходит через 17 и перемножить найденные значения. Сначала найдём количество программ, получающих 10 из 1.

 

Обозначим R(n) — количество программ, которые преобразуют число 2 в число n.

 

Верны следующие соотношения:

1. Если n не делится на 2, то тогда R(n) = R(n - 1), так как существует единственный получения n из n - 1 — прибавление единицы.

2. Пусть n делится на 2.

Если n > 1, то R(n) = R(n / 2) + R(n - 1).

Если n = 1, то R(n) = 1 (два прибавление единицы и удвоение).

 

Теперь можно постепенно вычислить все значения:

R(2) = R(1) + R(1) = 1 + 1 = 2 = R(3)

R(4) = R(2) + R(3) = 2 + 2 = 4 = R(5),

R(6) = R(3) + R(5) = 2 + 4 = 6 = R(7),

R(8) = R(4) + R(7) = 4 + 6 = 10 = R(9),

R(10) = R(5) + R(9) = 4 + 10 = 14

 

Программ, получающих из числа 10 число 21, и не содержащих 17 всего одна: 21.

 

Тем самым, находим ответ: 14 · 1 = 14.

 

ответ: 14.

Объяснение:

Var
  X: array [1..5, 1..5] of real;
  Y: array [1..4, 1..4] of real;
  i, j: byte;
  SumX, SumY: real;
begin
SumX := 0; SumY := 0;
writeln('Массив X':28);
for i := 1 to 5 do
begin
  for j := 1 to 5 do
  begin
    X[i, j] := random*40-20;
    if X[i, j] < 0 then SumX := SumX + X[i, j];
    write(X[i, j]:9:4);
  end;
  writeln;
end;
writeln;
writeln('Массив Y':28);
for i := 1 to 4 do
begin
  for j := 1 to 4 do
  begin
    Y[i, j] := random*40-20;
    if Y[i, j] < 0 then SumY := SumY + Y[i, j];
    write(Y[i, j]:9:4);
  end;
  writeln;
end;
writeln;
writeln('Сумма отрицательных массива X = ', SumX:9:4);
writeln('Сумма отрицательных массива Y = ', SumY:9:4);
if SumX > SumY then writeln('Сумма отрицательных X - больше.')
else if SumX < SumY then writeln('Сумма отрицательных Y - больше.')
else writeln('Сумма отрицательных X и Y равны.')
end.