Даны три числа (a, b и c) найти разность наибольшего и наименьшего из них.

Question

Информатика

Генуша

1 апреля, 05:05

Даны три числа (a, b и c) найти разность наибольшего и наименьшего из них.

+3

Ответы (1)

Знаете ответ на вопрос?

Авксентий · Answer 1

Program n1;

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

begin

readln (a, b, c) ;

if (a>b) and (a>c) then max:=a;

if (b>a) and (b>c) then max:=b;

if (c>a) and (c>b) then max:=c;

min:=a;

if b
if c
writeln ('разность: ', max-min) ;

end.