Написать программу, с которой можно найти наименьшее - вопрос №8332528 от MiFanMF 16.01.2020 14:22

Question

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

MiFanMF · Answer

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

begin
var a,b,c,d:real;
Read(a,b,c,d); Writeln('Min=',Min(Min(a,b),Min(c,d)))
end.

Пример
3.65 20 -5.1 0
Min=-5.1