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

Question

Информатика

Ида

25 августа, 19:32

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

+4

Ответы (1)

Знаете ответ?

Степанка · 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 (a
if (b
if (c
sum:=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.