Пусть размеры прямоугольного отверстия а - ширина, h - высота
Сначала среди размеров X, Y, Z - ищем самое большое: RazMax.
Если RazMax <a, (пусть это будет Z), то
среди Х и Y подбираем такое, чтобы оно меньше или равно h
Eсли RazMax > a, то среди X и Y ищем НАИБОЛЬШЕЕ.
Если это НАИБОЛЬШЕЕ меньше ширины, то проверяем, чтобы среди оставшихся измерений хотя бы одно было меньше или равно h.
Если все это не годится, то кирпич не пролезет в это отверстие...
QBasic:
DIM a AS INTEGER
INPUT "Введите длину стороны квадрата",a
PRINT "Площадь квадрата со стороной";a;":";a*a
PRINT <span>"Периметр квадрата со стороной";a;":";4*a
END
C#:
int a = int.Parse(Console.ReadLine());
Console.WriteLine("Площадь </span><span>квадрата со стороной " + a + ": " + a*a);
</span>Console.WriteLine("<span>Периметр квадрата со стороной " + a + ": " + 4*a);</span>
в первом случае 5, во втором 8.
//PascalABC.NET
var
m : integer;
begin
// Зарезервируем массив [0..9] для подсчета повторов
var a := ArrFill(10, 0);
// Запрос пользователю ввести положительное число
repeat
m := ReadlnInteger('Введите 0 или положительное число ')
until m >= 0;
// Подсчет количества повторяющихся цифр
while m > 0 do begin
a[m mod 10] += 1;
m := m div 10
end;
// Найдем в массиве повторы от 2 и более раз?
if a.FindIndex(x -> x>=2) = -1 then
// Повторов не найдено. Вывод сообщения
writeln('Нет повторов.')
else begin
// Повторы есть.
write('Повторяются: ');
// Выведем повторяющиеся цифры
for var i := 0 to 9 do
if a[i] > 1 then write(i, ' ')
end
end.
