Question

Напишіть програму мовою програмування Паскаль, яка виводить найменьше з 3х чисел введених з клавіатури *

Answer 1

Ответ:

function Min(a,b: integer):integer;

begin

 if a<b then

   Min:=a

 else

   Min:=b

end;

var

 a,b,c: integer;

begin

 ReadLn(a,b,c);

 WriteLn(Min(a,Min(b,c)));

 ReadLn

end.