Даны три числа. найдите разность большего и меньшего - вопрос №8223983 от kseniasmirnova3 08.02.2020 08:40

Question

Информатика: Даны три числа. найдите разность большего и меньшего из них. написать программу на паскаль.

kseniasmirnova3 · Answer

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var (a,b,c):=ReadReal3;
Writeln(Max(Max(a,b),c)-Min(Min(a,b),c))
end.

Пример
6.2 15 -4
19