Даны 3 числа a,b,c.найти наибольшее из a и b.затем - вопрос №36500308 от Milanusia 28.04.2022 07:39

Question

Информатика: Даны 3 числа a,b,c.найти наибольшее из a и b.затем вычислить наименьшее из с и полученного наибольшего из а и b а=8,2 б= -0,1 с=1,2.

Milanusia · Answer

// 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