1. Написать

процедуру, меняющую значения двух переменных а и b местами.

2. Используя

процедуру обмена значений двух переменных, упорядочьте по возрастанию

переменные a, b, c.

Question

Информатика

Миколай

28 мая, 11:08

1. Написать

процедуру, меняющую значения двух переменных а и b местами.

2. Используя

процедуру обмена значений двух переменных, упорядочьте по возрастанию

переменные a, b, c.

+1

Ответы (1)

Знаете ответ на вопрос?

Марья · Answer 1

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.