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

2 Миша заполнял таблицу истинности функции (хлгу) V (x = 2) V-w, но успел заполнить лишь фрагменты из трёх различных её строк, даже не указав, какому столбцу таблицы соответствует каждая из переменных w, x, y, z. 0 0 о (хлу)V (x = 2) VW 0 0 0 1 1 0 1 1 Определите, какому столбцу таблицы соответствует каждая из переменных w, x, y, z. В ответе напишите буквы w, x, y, z в том порядке, в котором идут соответствующие им столбцы (сначала буква, соответствующая первому столбцу; затем буква, соответствующая второму столбцу, и т.д.). Буквы в ответе пишите подряд, никаких разделителей между буквами ставить не нужно. Пример. Функция задана выражением x Vу, зависящим от двух переменных, а фрагмент таблицы имеет следующий вид. x Vy 0 0 1 В этом случае первому столбцу соответствует переменная у, а второму столбцу переменная х. В ответе следует написать ух. ответ:


2 Миша заполнял таблицу истинности функции (хлгу) V (x = 2) V-w, но успел заполнить лишь фрагменты и

👇
Открыть все ответы
Ответ:
Вика1609000
Вика1609000
02.06.2022
В PascalABC.NET эта задача решается легко и быстро. В других версиях будет монстрик.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

procedure MakeFile(path:string);
// не относится к заданию, создает файл Text со 100 числами
begin
  WriteLines(path,SeqRandom(100,-99,99).Select(x->x.ToString))
end;

begin
  MakeFile('MyFile1.txt');
  // теперь у нас есть текстовый файл из 100 случайных чисел
  // собственно, решение
  var n:=ReadInteger('Укажите количество чисел:');
  var a:=ReadLines('MyFile1.txt').Take(n).ToArray;
  Writeln('Исходная последовательность'); a.Println;
  Writeln('Результирующая последовательность');
  a:=a.OrderBy(x->x.Last).ToArray; a.Println;
  WriteAllLines('MyFile2.txt',a);
end.

Пример
Укажите количество чисел: 15
Исходная последовательность
51 -9 17 -12 7 -15 -20 50 98 19 56 67 -57 -42 64
Результирующая последовательность
-20 50 51 -12 -42 64 -15 56 17 7 67 -57 98 -9 19
4,7(56 оценок)
Ответ:
karinalove9
karinalove9
02.06.2022
From random import shuffle
 
points = 0
points_per_turn = 100
lives = 3
rooms = [("В комнате дракон :(", -1), ("В комнате живая вода :)", 1), ("Комната пуста :|", 0)]
n = len(rooms)
 
while lives > 0:
  print("Жизней: ", lives, ", очков: ", points, sep = "")
  shuffle(rooms)
  print("Выбирайте любую из дверей, введите число от 1 до", n, end=" ")
  choice = int(input()) - 1
  points += points_per_turn
  print(rooms[choice][0])
  lives += rooms[choice][1]
 
print("Коварный дракон лишил вас последней жизни, но тем не менее у вас осталось", points, "очков.")
4,7(56 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ