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

Уисполнителя программист две команды, которым присвоены номера: 1. вычти b 2. умножь на 4 ( b - неизвестное натуральное число ) первая из них уменьшает число на экране на b, вторая увеличивает число в 4 раза. известно., что программа 22122 переводит число 1 в число 160. определите значение b

👇
Открыть все ответы
Ответ:
NadiushaSpermiulina
NadiushaSpermiulina
20.12.2022
Пусть первое утверждение первого учителя истинно. Следовательно, можно составить таблицу, где в первой колонке номер учителя, во второй правда/ложь по высказываниям (например, ПЛ означает, что первое высказывание верное, второе ложное, ЛП - наоборот), а во третьем верное высказывание:
1 :: ПЛ :: первое место у Васи
2 :: ПЛ :: второе место у Саши
3 :: ЛП :: четвёртое место у Гриши
4 :: ЛЛ :: противоречие!

Значит, у первого учителя первое высказывание ложное. Составляем таблицу:
1 :: ЛП :: второе место у Юры
2 :: ЛП :: пятое место у Васи
3 :: ЛП :: четвёртое место у Гриши
4 :: ЛЛ :: противоречие!

Мда, у задачи нет решения...
4,7(35 оценок)
Ответ:
MokrovaDiana
MokrovaDiana
20.12.2022
Const
  n = 16;

var
  A, Y: array[1..n] of integer;
  i, m: integer;
  S: longint;

begin
  Write('Введите число элементов в массивах m<17: ');
  Readln(m);
  if not (m in [1..16]) then m := 16; { защита от дурака }
  Randomize;
  //Write('Элементы массива: ');
  S := 0;
  for i := 1 to m do
  begin
    A[i] := Random(51) - 25;
    Y[i] := Random(41) - 20;
    S := S + A[i] * Y[m - i + 1]
    //Write(x[i]:5)
  end;
  if S < 24 then Writeln('Искомая сумма равна ', S)
  else begin
    Write('Массив A: ');
    for i := 1 to m do Write(A[i]:4);
    Write(#13#10, 'Массив Y: ');
    for i := 1 to m do Write(Y[i]:4);
    Writeln
  end
end.

Тестовое решение:

Введите число элементов в массивах m<17: 0
Массив A:    6  25   9  -4  11  10 -18  11  18 -11 -24   1  13  -3 -10   0
Массив Y:    1   0   6   9  14 -14   3  -6 -17 -19  11  16  11 -20   5  19

Введите число элементов в массивах m<17: 10
Массив A:    1   2   7   5   9 -16 -23  -4   5  -2
Массив Y:   -3  -5 -12 -20   2   1  -3  18  19 -17

Введите число элементов в массивах m<17: 10
Искомая сумма равна 1
4,5(72 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ