Question

Z = max(a,b,c)/min(a,b,c)

Answer 1

Программа:

var a,b,c,min,max: integer;

begin

write('a, b, c: ');

readln(a,b,c);

if a>b then max:=a else max:=b;

if c>max then max:=c;

if a<b then min:=a else min:=b;

if c<min then max:=c;

writeln('max = ',max,' min = ',min,' max/min = ',max/min:5:2);

end.

Пример:

a, b, c: 5 2 10

max = 10 min = 2 max/min =  5.00