Даны три числа АВС. Составьте программу, которая упорядочит их по возрастанию?
Даны три числа АВС. Составьте программу, которая упорядочит их по возрастанию?
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы