Даны величины a b c d. Составьте алгоритм для перемещения значений этих величин по такому принципу: b должно получить значение a; c - значение b; d - значение c.
D=c значение d c=b b=a
Program vbn; var a,b,c,d:integer; begin writeln('введите a,b,c,d'); readln(a,b,c,d); b:=a; c:=b; d:=c; writeln('a=',a); writeln('b=',b); writeln('c=',c); writeln('d=',d); end.
program vbn; var a,b,c,d:integer; begin writeln('введите a,b,c,d'); readln(a,b,c,d); d:=c;c:=b;b:=a; writeln('a=',a); writeln('b=',b); writeln('c=',c); writeln('d=',d); end.
точнее так
сначала d:=c; потом c:=b; а потом b:=a;