Kegamand
6 год назад
Даны 3 числа a,b,c.Найти наибольшее из a и b.Затем вычислить наименьшее из С и полученного наибольшего из а и b
А = 8,2 б = -0,1 с = 1,2.Очень очень надо!!!!
ОТВЕТЫ
Варфоломеевич
Jul 20, 2019
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
begin
var a,b,c:real;
Write(Введите a,b,c: ); Read(a,b,c);
Writeln(min(c,max(a,b)))
end.
Пример
Введите a,b,c: 8.2 -0.1 1.2
1.2
begin
var a,b,c:real;
Write(Введите a,b,c: ); Read(a,b,c);
Writeln(min(c,max(a,b)))
end.
Пример
Введите a,b,c: 8.2 -0.1 1.2
1.2
14
Смежные вопросы:
