1)intreg aux,invers,c,n
invers<-0
scrie "Introduceti numarul : "
citeste n
aux<-n
cat timp n!=0 executa
| c<-n % 10
| invers<-invers*10+c
| n<-n /10
|.
daca aux=invers atunci
| scrie "Numarul este palindrom"
|
altfel
| scrie "Numarul tastat nu este palindrom"
|.
2)
intreg a,b,c,d
scrie "Dati primul numar: "
citeste a
scrie "Dati al doilea numar: "
citeste b
c<-b
d<-a
cat timp a!=b
|
|daca a>b atunci a<-a-b
|altfel b<-b-a
|scrie "Cel mai mare divizor comun al numerelor d si c este a"
|.
