Pascal inversul variabilelor:
var n,inv:integer;
begin
write('Numarul de inversat :');
readln(n);
inv:=0;
while n>0 do
begin
inv:=inv*10 + n mod 10;
n:=n div 10;
end;
writeln('Inversul este ',inv);
readln;
end.
Pentru a interschimba doua variabile sunt mai multe metode:
1) Folosesti o a treia variabila (c):
c=a;
a=b;
b=c;
3) Folosesti o adunare,scadere,inmultire:
a=a+b;
b=a-b;
a=a-b;
a=a-b;
b=a+b;
a=b-a;
a=a*b;
b=a/b;
a=a/a;
a=a/b;
b=a*b;
a=b/a;
Pascal prin a treia variabila:
var
a,b,c:integer;
begin
read(a);
readln(b);
c:=a;
a:=b;
b:=c;
writeln(a);
writeln(b);
end.
Pascal prin adunare:
var
a,b:integer;
begin
readln(a);
readln(b);
a:=a+b;
b:=a-b;
a:=a-b;
writeln(a);
writeln(b);
end.
