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

Question

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

succura · Answer

PascalABC.NET

begin

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

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

var t: real;

t := a;

a := b;

b := c;

c := t;

Println(a, b, c);

// без в переменной

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

Println(a, b, c)

end.