Информатика, опубликовано 2018-08-22 19:09:56 by Гость
Даны три числа АВС. Составьте программу, которая упорядочит их по возрастанию?
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.