Тема: Задачи на разветвляющиеся алгоритмы
Показать сообщение отдельно
  #3  
Старый 01.10.2010, 22:34
lmikle lmikle вне форума
Модератор
  
Регистрация: 17.04.2008
Сообщения: 8,100
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию
по №2:

Код:
uses Math;
...
BestRes := Min(R1,Min(R2,R3));
Ответить с цитированием