Question

De la tastatură se introduce un număr natural de 2 cifre,Scrieți un program care va calcula și afișa pe ecran oglinditul numărului dat.
În Pascal trebuie rezolvat.......ofer 29 de puncte

Answer 1

program a_1;
var x,n1,oglindit:integer;
begin
while (x>=10) and (x<=99) do
write('x='); readln(x);
oglindit:=0;
n1:=n;
do
begin
oglindit:=oglindit *10 + n1 mod 10;
n1:=n1/10;
end;
while(n1);
write(" Oglinditul este= ',oglindit);
readln
end.