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

Написать решение на языке pascal

Показать ответ
Ответ:
ник10910
ник10910
07.07.2020 12:10

Если не математическим, а программным образом, то примерно так

 

A2(), А3(), А4(),А5()   это массивы, в которых сохраним эти числа

ц2=0;

ц3=0;

ц4=0; 

ц5=0;  // это их индексы

Для ц=100 до 999 Цикл

      Если Остаток(ц+1,2)=0 Тогда

                   ц2=ц2+1;

                   А2(ц2)=ц;

      КонецЕсли;

      Если Остаток(ц+2,3)=0 Тогда

                   ц3=ц3+1;

                   А3(ц3)=ц;

      КонецЕсли;

 

      Если Остаток(ц+3,4)=0 Тогда

                   ц4=ц4+1;

                   А4(ц4)=ц;

      КонецЕсли;

 

      Если Остаток(ц+4,5)=0 Тогда

                   ц5=ц5+1;

                   А5(ц5)=ц;

      КонецЕсли;

 

КонецЦикла;

 

// Теперь их напечатаем

Сообщить("При увеличении на 1 делятся на 2");

Для ц=1 по ц2 Цикл

   Сообщить(А2(ц));

КонецЦикла;

 

Сообщить("При увеличении на 2 делятся на 3");

Для ц=1 по ц3 Цикл

   Сообщить(А3(ц));

КонецЦикла;

 

Сообщить("При увеличении на 3 делятся на 4");

Для ц=1 по ц4 Цикл

   Сообщить(А4(ц));

КонецЦикла;

 

Сообщить("При увеличении на 3 делятся на 4");

Для ц=1 по ц4 Цикл

   Сообщить(А4(ц));

КонецЦикла;

   

Сообщить("При увеличении на 4 делятся на 5");

Для ц=1 по ц5 Цикл

   Сообщить(А5(ц));

КонецЦикла;

 

 

Ну вот, где-то так.

 

Но если математически, то нужно по-другому, и информатика здесь совершенно ни при чём, скорее теория чисел.

 

 Да, в условии не сказано, что ОДНОВРЕМЕННО, поэтому я решал задачу "не одновременно"

 

Если одновременно, то ещё проще, всего одно условие со сложным условием и можно без массивов.

 

Ну и ещё: использована функция Остаток(), она есть в любом языке. Если нет(??!), то легко пишется вручную.

 

0,0(0 оценок)
Ответ:
Lerawsfghdsx
Lerawsfghdsx
14.12.2020 04:07
Для какого из приведённых высказываний ложно высказывание "(Количество букв чётное) ИЛИ (Последняя буква гласная)" ?

Дизъюнкция - логическое сложение. В естественном языке соответствует союзу "ИЛИ". Логическое "ИЛИ" ложно тогда и только тогда, когда ложно хотя бы одно из составляющих высказываний.

Запишем выражение в исходном виде.
A \vee B

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