Даны три числа найти разность между большим и меньшим числом

Question

Информатика

Авдоким

18 марта, 18:49

Даны три числа найти разность между большим и меньшим числом

+2

Ответы (1)

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

Ювеналий · Answer 1

Var a, b, c:integer;

function min (x1, x2:integer) : integer;

begin

if x1
end;

function max (x1, x2:integer) : integer;

begin

if x1
end;

begin

readln (a, b, c) ;

writeln (max (max (a, b), c) - min (min (a, b), c)) ;

end.