Question

Se dă un număr întreg a. Scrieți algoritmul prin care obținem inversul acestuia în variabila b

Answer 1

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.