В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
kekocikkkkk
kekocikkkkk
12.03.2020 22:28 •  Информатика

СОСТАВИТЬ ТАБЛИЦУ ИСТИННОСТИ . Вернувшись домой, Мегре позвонил на набережную Орфевр. Говорит Мегре. Есть новости? Да, шеф. Поступили сообщения от инспекторов. Торранс установил, что если Франсуа был пьян, то либо Этьен убийца, либо Франсуа лжет. Жульен считает, что или Этьен убийца, или Франсуа не был пьян, и убийство произошло после полуночи. Инспектор Люка просил передать вам, что если убийство произошло после полуночи, то либо Этьен убийца, либо Франсуа лжет. Затем позвонила… Все . Этого достаточно. Комиссар положил трубку. Он знал, что трезвый Франсуа никогда не лжет. Теперь он знал все. Опишите, что знает Мегре?

Показать ответ
Ответ:
yuliaprok61yulia1206
yuliaprok61yulia1206
15.04.2022 16:45
Var
  m, n, nok, t, i: longint;

begin
  Write('Введите через пробел два целых положительных числа- ');
  Readln(m, n);
  {Сначала ищем НОК - наименьшее общее кратное}
  if m = n then begin
    nok := m;
    t := m * m
  end
  else begin
    t := m * n;
    repeat
      if m > n then m := m - n else n := n - m
    until m = n;
    nok := t div m
  end;
  {Теперь умножаем НОК на числа натурального ряда,
   пока не дойдем до величины t=m*n}
  if nok = t then Writeln('Требуемых чисел нет')
  else begin
    i := 1;
    while (nok * i < t) do
    begin
      Write(nok * i, ' ');
      i := i + 1
    end
  end
end.

Тестовое решение:
Введите через пробел два целых положительных числа- 8 120
120 240 360 480 600 720 840

Введите через пробел два целых положительных числа- 35 620
4340 8680 13020 17360

Введите через пробел два целых положительных числа- 7 13
Требуемых чисел нет
0,0(0 оценок)
Ответ:
Черничка21
Черничка21
10.05.2020 12:25

1. Актуальная: Экологическая обстановка в мире с каждым днём ухудшается.

2. Неактуальная: Чтобы добыть огонь, нужно стукать камушек о камушек.

3. Достоверная: Силы, с которыми тела действуют друг на друга, равны по модулю и противоположны по направлению (информация из учебника).

4. Недостоверная: Люська из пятого подъезда ведёт разгульный образ жизни (слова соседки-сплетницы).

5. Объективная: Часы показывают 17 часов 50 минут.

6. Необъективная: Сейчас вечер.

7. Полная: Красный свет - стой, жёлтый - приготовься, зелёный - иди.

8. Неполная: Красный свет - стой, зелёный - иди (для трёхцветного светофора)

9. Полезная: Не сутулься, а то рано состаришься!

10. Бесполезная: В соседней деревне нет ни одного Олега.

11. Понятная: Два плюс два равно четыре.

12. Непонятная: жык лопр дыв мыг

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота