// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); if Abs(n).Between(100,999) then begin Writeln('Число трехзначное'); if n.IsOdd then Writeln('Число нечетное') else Writeln('Число четное'); if n div 100 = n mod 10 then Writeln('Его первая и последняя цифры равны') else Writeln('Его первая и последняя цифры не равны') end else Writeln('Число не трехзначное') end.
Примеры n= 452 Число трехзначное Число четное Его первая и последняя цифры не равны
n= 313 Число трехзначное Число нечетное Его первая и последняя цифры равны
А через 2 трубу он наполняется за (x-T) мин, по 1/(x-T) части в мин.
Тогда через обе трубы за 1 мин наполнится 1/x + 1/(x-T) = 1/K часть.
(x - T + x) / (x(x - T)) = 1/K
K(2x - T) = x(x - T)
2Kx - KT = x^2 - Tx
x^2 - (2K + T)x + KT = 0
Решаем квадратное уравнение
D = (2K + T)^2 - 4KT = 4K^2 + 4KT + T^2 - 4KT = 4K^2 + T^2
x1 = (2K + T - √(4K^2 + T^2) ) / 2;
Тогда y1 = x1 - T = (2K - T - √(4K^2 + T^2)) / 2 < 0 - не подходит.
x2 = (2K + T + √(4K^2 + T^2) ) / 2 - через 1 трубу;
Тогда y2 = x2 - T = (2K - T + √(4K^2 + T^2) ) / 2 - через 2 трубу.