Kaol
6 год назад
Составьте программу сортировки по возрастанию значений трёх переменных:A,D,C.
ОТВЕТЫ
Leopoldovich
Aug 1, 2019
Var
a, d, c, t: integer;
begin
readln(a, d, c);
if a lt; d then begin t := a;a := d;d := t; end;
if a lt; c then begin t := a;a := c;c := t; end;
if d lt; c then begin t := d;d := c;c := t; end;
writeln(a, , d, , c);
end.
a, d, c, t: integer;
begin
readln(a, d, c);
if a lt; d then begin t := a;a := d;d := t; end;
if a lt; c then begin t := a;a := c;c := t; end;
if d lt; c then begin t := d;d := c;c := t; end;
writeln(a, , d, , c);
end.
288
Смежные вопросы:
