<span>Я пологаю вы работаете с Exel.
Для начала напротив клетки "Площадь", вычислите площать вставив функцию суммы.
В
след клетке сложите весь объём так, вставкой математической функции,
потом выделив графу глубины и все данные используйте функцию MAX
ПОтом выделеите все клетки напротив "напор" и используйте функцию MIN</span>
name = int(input())
name1 = (name % 10)
name10 = (((name % 100) - name1) / 10)
name100 = (name // 100)
if name1 == name10 == name100:
print('В числе все цифры одинаковые')
elif name1 == name10 > name100 or\
name1 == name10 < name100 or\
name1 == name100 > name10 or\
name1 == name100 < name10 or\
name10 == name100 > name1 or\
name10 == name100 < name1:
print('В числе две цифры одинаковые')
else:
print('ОК')
Uses
GraphABC;
begin
Window.Init(0, 0, 300, 300, clWhite);
window.CenterOnScreen();
Pen.Color := clSilver;
Pen.Width := 3;
Brush.Style := bsGradient;
Brush.Color := clBlack;
Brush.GradientSecondColor := clWhite;
Rectangle(50, 50, 250, 250);
end.