Question

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

Answer 1

===== PascalABC.NET =====

begin

 var (a, b, c) := ReadReal3('Введи три числа:');

 // через четвертую переменную

 var t: real;

 t := a;

 a := b;

 b := c;

 c := t;

 Println(a, b, c);

 // без вcпомогательной переменной

 (a, b, c) := (b, c, a);

 Println(a, b, c)

end.