Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Hist18
19.12.2021 08:59 •
Информатика
Заданы размеры а, в прямоугольного отверстия и размеры х, y, z кирпича. определите, пройдет ли кирпич через отверстие. . нужна через паскаль.
Показать ответ
Ответ:
gree04
03.10.2020 17:02
Var a,b,x,y,z:integer;
begin
readln(a,b,x,y,z);
if ((a>=x)and(b>=y))
or ((a>=y)and(b>=x))
or ((a>=x)and(b>=z))
or ((a>=z)and(b>=x))
or ((a>=y)and(b>=z))
or ((a>=z)and(b>=y))
then write('Пройдёт')
else write('Не пройдёт');end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nastyakot11
22.11.2021 21:39
Написать текст, в котором говорится о сайтах (о всех) которыми вы пользуетесь 1. сайты про новости 2. сайты для учебы 3. сайты для покупок 4. развлекательные сайты текст от первого...
vikinagirich
08.09.2022 23:54
После проведения олимпиады по информатике жюри олимпиады внесло результаты всех участников олимпиады в электронную таблицу. А В С D E F G 1 Фамилия Имя Класс Зад.1 Зад.2 Зад.3 Зад.4...
bakulya2005ma
25.03.2020 19:29
Можете . Как делать в паскале w6; cif4; cif6....
ЛёхаТихонов
03.02.2022 20:31
Определи порты, к которым подключены гироскопические датчики. A0B0с24DEVE100)о225531004-3550CmС.Берных ответов: 2124УВПроверить...
Dementor112
15.12.2021 14:34
чрезмерное использование VR гарнитуры может привести к потере баланса плохо зрения двигаться информатика 10-11 класс...
helena59365
27.01.2022 09:16
Подумайте, почему робототехника начала стремительно развиваться. Запишите в 2-3 предложениях свое мнение...
qvetikp0cumc
26.06.2020 16:27
есть картинка флага России и задание к двум имеющимся добавьте четвертый , чтобы получить третий .двоичный код...
Света11111111119079г
22.12.2021 06:28
Напишите прогу в одномерном массиве, состоящим из n вещественных элементов, вычислить: 1)произведение отрицательных элементов массива; 2)сумму положительных элементов массива,расположенных...
лера2285
03.08.2022 13:52
Согласны ли вы с высказыванием польского литературоведа Яна Парандовского «У всякого … искусства сфера тем ограничена, одна только литература не знает границ...
valerea0
02.03.2023 12:22
(x+1)(2x-3)=0 знайти корні рівняння і поснити (росписати) бажано...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a,b,x,y,z);
if ((a>=x)and(b>=y))
or ((a>=y)and(b>=x))
or ((a>=x)and(b>=z))
or ((a>=z)and(b>=x))
or ((a>=y)and(b>=z))
or ((a>=z)and(b>=y))
then write('Пройдёт')
else write('Не пройдёт');end.