Даны три числа(a,b и c) найти разность наибольшего и наименьшего из них.
Даны три числа(a,b и c) найти разность наибольшего и наименьшего из них.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы