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

Question

Информатика

Ярославка

18 ноября, 16:58

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

+3

Ответы (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.