М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Джaмиль
Джaмиль
04.06.2020 08:28 •  Информатика

Mas = for i in range(1,5): mas[i] +=mas[i-1]*3 в ответе укажите через пробел, чему изначально были равны элементы массива mas, если в результате работы программы они оказались равны 3 14 47 142 428 (в порядке возрастания индексов). напишите подробно: как решать?

👇
Ответ:
dashazoriksv
dashazoriksv
04.06.2020
довольно простой, только надо задать mas[0], пусть оно будет 0
mas[1] = mas[1] + mas[0]*3 = mas[1] = 3
mas[2] = mas[2] + mas[1]*3 = mas[2] + 9 = 14 -> mas[2] = 14-9 = 5
и тд

#Ruby22
mas = [0, 3, 5, 5, 1, 2]
for i in 1..5
    mas[i] += mas[i - 1] * 3
end
p mas
4,8(81 оценок)
Ответ:
slarina171
slarina171
04.06.2020
1. Первый элемент массива не менялся, значит M[0] = 3
2. Чтобы получить M[1] надо рассмотреть такой вариант:
14 = MAS[0]*3+X, где Х есть предыдущее значение элемента M[1], получим, что Х = 5 и изначально  M[1] = 5
3. Зная второй элемент массива несложно получить и третий:
47 = MAS[1] * 3 + X = 14*3 +X, где Х есть предыдущее значение элемента M[2], получим, что Х = 5 и изначально  M[2] = 5
4. Аналогично находим, что первоначальное значение М[3] =  1, а M[4]  = 2

5. Значит массив изначально был такой:
3 5 5 1 2

Напишем код на Python для проверки:
MAS = [3,5,5,1,2]
print(MAS[0],sep=' ', end=' ')
for i in range(1,5):
    MAS[i] +=MAS[i-1]*3
    print(MAS[i],sep=' ', end=' ')

Результат:
3 14 47 142 428

ответ: 3 5 5 1 2
4,6(19 оценок)
Открыть все ответы
Ответ:
ntaskaeva2
ntaskaeva2
04.06.2020
Type
  mass = array[1..10, 1..10] of real;

var
  a, b, c: mass;
  n, m, i, j, n1, m1: integer;

procedure MatrA(var a: mass);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
    begin
      writeln('a[', i, ',', j, ']: ');
      readln(a[i, j])
    end
end;

procedure MatrB(var b: mass);
var
  i, j: integer;
begin
  for i := 1 to n1 do
    for j := 1 to m1 do
    begin
      writeln('b[', i, ',', j, ']: ');
      readln(b[i, j])
    end
end;

procedure Sum(a, b: mass; var c: mass);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      c[i, j] := a[i, j] + b[i, j];
end;

begin
  writeln('Введите n,m матрицы A');
  readln(n, m);
  MatrA(a);
  writeln('Введите n,m матрицы B');
  readln(n1, m1);
  MatrB(b);
  if (n1 <> n) and (m1 <> m) then
    writeln('Матрицы сложить нельзя')
  else begin
    Sum(a, b, c);
    writeln('A+B');
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(c[i, j]:1:3, ' ');
      writeln
    end
  end;
  readln;
end.
4,7(39 оценок)
Ответ:
albgon4arowa20
albgon4arowa20
04.06.2020
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=8;
  var a:=new real[n,n];
  var k:=1;
  for var i:=0 to n-1 do
    for var j:=0 to n-1 do begin
      if i.IsEven then a[i,n-1-j]:=k
      else a[i,j]:=k;
      k+=1
      end;
  a.Println(3,0)
end.

Результат
  8  7  6  5  4  3  2  1
  9 10 11 12 13 14 15 16
 24 23 22 21 20 19 18 17
 25 26 27 28 29 30 31 32
 40 39 38 37 36 35 34 33
 41 42 43 44 45 46 47 48
 56 55 54 53 52 51 50 49
 57 58 59 60 61 62 63 64
4,4(10 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ