Даны три числа АВС. Составьте программу, которая упорядочит их по возрастанию?

Question

Информатика

Арсения

Сегодня, 07:43

Даны три числа АВС. Составьте программу, которая упорядочит их по возрастанию?

+1

Ответы (1)

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

Витяша · Answer 1

Var

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

begin

readln (a, b, c) ;

if (a>b) then begin max:=a; mid:=b end

else begin max:=b; mid:=a end;

if c>max then max:=c

else

if c>mid then begin min:=mid; mid:=c end;

write (min,' ', mid,' ', max) ;

end.