Составьте программу сортировки по возрастанию значений трёх переменных:A,D,C.
Составьте программу сортировки по возрастанию значений трёх переменных:A,D,C.
Гость
Ответ(ы) на вопрос:
Гостьvar
a, d, c, t: integer;
begin
readln(a, d, c);
if a < d then begin t := a;a := d;d := t; end;
if a < c then begin t := a;a := c;c := t; end;
if d < c then begin t := d;d := c;c := t; end;
writeln(a, ' ', d, ' ', c);
end.
Не нашли ответ?
Похожие вопросы