Открытка на день рождения имя входного файла: стандартный ввод имя выходного файла: стандартный вывод ограничение по времени: 1 секунда ограничение по памяти: 256 мегабайт у васи скоро день рождения, поэтому петя хочет отправить ему открытку. он уже купил пре- красную открытку и конверт, но тут перед ним возникла проблема: открытка большая и может не влезть в конверт. открытка и конверт представляют из себя два прямоугольника со сторонами p1 и p2 для от- крытки и e1 и e2 для конверта соответственно. открытку можно поместить в конверт только таким образом, чтобы стороны открытки были параллельны сторонам конверта. вася просит ему определить, поместится ли его открытка в купленный им конверт. формат входных данных первая строка содержит два целых числа e1 и e2 (1 ⩽ e1, e2 ⩽ 105 ) — длины сторон конверта. вторая строка содержит два целых числа p1 и p2 (1 ⩽ p1, p2 ⩽ 105 ) — длины сторон открытки. формат выходных данных выведите «yes» (без кавычек), если васе удастся разместить открытку в конверте и «no» в противном случае. примеры стандартный ввод стандартный вывод 7 8 4 5 yes 1 3 2 4 no 3 5 4 решите на паскале

по условию на каждый этаж нужно ровно одному магу.

пусть n - искомый (самый выгодный этаж для остановки), тогда магу живущему на n этаже не придется идти ни вверх, ни вниз.

вверх нужно подняться 2020-n магам, на на 1, 2, 3, …, 2021-n этажей соответственно. вниз придётся спускаться n-1 магу, на 1,2,3,…, n-1 этажей.

подсчитаем общее количество неудовольствий с учётом того, что маги не любят подниматься вверх в двойне.

заметим, что минимум полученного квадратного трёхчлена достигается в точке n= . в силу того, что n – целое, а также парабола имеет ось симметрии, лифт должен подняться на 1441 этаж (минимум точки 1440,52)округляем до целого.

ответ: 1441

p.s. не уверен, что это так, но в принципе, должно быть правильно

var i,n, result: integer; //определяем переменные

begin

    result : = 1; //начальное значение - 1. иначе при умножении на 0 будет всегда 0

    readln(n); //вводим число, факториал которого надо найти

    while n > 1 do//пока н не будет меньше, выполняем тело

    begin

        result : = result * n; //вычисляем факториал по принципу: с конца к началу. умножаем 5 на 1(начальное значение result), потом 4 на 5(прошлое значение результ) потом 3 на 20 и тп

        n : = n - 1; //отнимаем от n 1 и переходим с предыдущему числу

    end;

    writeln('факториал = ', result);

end.