1.Написать процедуру, меняющую значения двух переменных а и b местами. 2.Используя процедуру обмена значений двух переменных, упорядочьте по возрастанию переменные a, b, c.
1.Написать
процедуру, меняющую значения двух переменных а и b местами.
2.Используя
процедуру обмена значений двух переменных, упорядочьте по возрастанию
переменные a, b, c.
Гость
Ответ(ы) на вопрос:
ГостьProcedure Swap(var a, b: object);
var c: object := a;
begin
a := b;
b := c;
end;
var
a, b, c: byte;
begin
readln(a, b, c);
if (a > b) then Swap(a, b);
if (b > c) then Swap(b, c);
if (a > b) then Swap(a, b);
if (b > c) then Swap(b, c);
writeln(a, b, c);
end.
Не нашли ответ?
Похожие вопросы