Написать программу Pascal с помощью команд if then else. Есть прямоугольное отверстие с размерами а и b. Пройдет ли в это отверстие балка восотой m и шириной n
Написать программу Pascal с помощью команд if then else. Есть прямоугольное отверстие с размерами а и b. Пройдет ли в это отверстие балка восотой m и шириной n
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
a, b, m, n: integer;
begin
write('Введите ширину отверстия: ');
readln(a);
write('Введите высоту отверстия: ');
readln(b);
write('Введите ширину балки: ');
readln(n);
write('Введите высоту балки: ');
readln(m);
if ((m <= a) and (n <= b)) or ((m <= b) and (n <= a)) then
writeln('Балка поместится в отверстие')
else
writeln('Балка не поместится в отверстие');
end.
Программа запрашивает у пользователя размеры отверстия (a, b) и размеры балки (m, n). Затем проверяет, поместится ли балка в отверстие с учетом как ширины, так и высоты. Если балка поместится, программа выведет соответствующее сообщение, в противном случае - другое сообщение.