Сделать процедуру максимума и минимума 3 чисел , и их сумму . В паскале

Question

Сделать процедуру максимума и минимума 3 чисел , и их сумму . В паскале

Answer 1

Procedure maxminsum(a,b,c:real);
var
sum,max,min:real;
begin
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>b) and (c>a) then max:=c;
if (aif (bif (csum:=a+b+c;
writeln('max = ',max);
writeln('min = ',min);
writeln('sum = ',sum);
end;
var a,b,c:real;
begin
readln(a,b,c);
maxminsum(a,b,c);
end.

Comments

самая простая без ветвлений