Question

Напишите программу [на Pascal], которая вычисляет минимальное из трёх введённых чисел. Используйте функцию.

Answer 1

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

function Min3(a,b,c:real):=Min(a,Min(b,c));

begin
  var (x,y,z):=ReadReal3('Введите три числа:');
  Writeln('Минимальное: ',Min3(x,y,z))
end.

Пример
Введите три числа: 3.18 -2 5.7
Минимальное: -2

Answer 2

function min(x,y:integer):integer;
begin
if x<y then min:=x else min:=y;
end;
var a,b,c:integer;
begin
readln(a,b,c);
writeln('min = ',min(min(a,b),c));
end.

Пример:
8 2 5
min = 2