Question

Задача как поменять 3 числа местами не используя третью ячейку, поменять местами 3 числа в другом направлении. паскаль
все расписать как в программе
срочно надо!!! пожалуйста! ​

Answer 1

Не совсем понятно, что такое "в другом направлении", чтобы вывести числа в "другом" направлении нам достаточно будет поменять вторую и третью переменную местами. Но просили 3, поэтому меняем 1 с 2, а затем 2 с 3.

var

 a, b, c : integer;

 begin

   readln(a,b,c);

   writeln('Исходный порядок: ', a, ' ', b,' ', c);

   a := a + b + c;

   b := a - (b+c);

   c := a - (b+c);

   a := a - (b+c);

   writeln('После перестановки: ', a,' ', b, ' ', c);

 end.