Question

даны переменные A, B, C. изменить их значения переместив содержимое A-в B, B- в C, C-в A, и вывести новые значения переменных A, B, C. ABC паскаль. решите пжл

Answer 1

Не совсем конечно рационально, но зато работает.

var a,b,c,a1,b1,c1: integer;  
begin
writeln('Введите переменную A:');
read(a);
writeln('Введите переменную B:');
read(b);
writeln('Введите переменную C:');
read(c);
a1:=a;
b1:=b;
c1:=c;
b:=a1;
c:=b1;
a:=c1;
writeln(a,' ',b,' ',c);
end.

Answer 2

В Pascal можно выполнить задачу, перемещая содержимое переменных A, B и C друг в друга. Вот пример кода:

pascalCopy code
program VariableSwap;
var
  A, B, C, Temp: Integer;
begin
  { Введите начальные значения переменных A, B и C }
  Write('Введите значение A: ');
  Readln(A);
  Write('Введите значение B: ');
  Readln(B);
  Write('Введите значение C: ');
  Readln(C);

  { Выполните перемещение значений переменных }
  Temp := A;
  A := B;
  B := C;
  C := Temp;

  { Выведите новые значения переменных }
  Writeln('Новое значение A: ', A);
  Writeln('Новое значение B: ', B);
  Writeln('Новое значение C: ', C);

  { Ждем, пока пользователь нажмет Enter, чтобы закрыть программу }
  Readln;
end.

Этот код сначала запрашивает начальные значения переменных A, B и C, затем выполняет перемещение значений, и, наконец, выводит новые значения переменных.