Pascal2007.MyForum.ro

sugarfree · Trimis: 04/03/2007 00:29 Titlul subiectului: Varianta 4

programul dat verifica daca un numar este palindrom. Afiseaza "A" daca este palindrom sau "B" daca nu este palindrom.

1. A(nr 123321 este palindrom)

2. 12421 si 12422

3 citeste n
x<-0
e<-n*(n-x)*([n/10]-x)
cat timp e<>0 executa
x<-x*10+n div 10
n<-[n div 10]
e<-n*(n-x)*([n/10]-x)
daca n>0
atunci scrie "A"
altfel scrie "B"

4. var n,e,x:integer;
begin
readln(n);
x:=0;
repeat
x:=x*10+n mod 10;
n:=n div 10;
e:=n*(n-x)*(n div 10-x);
until e=0;
if n>0 then write ("A")
else write("B");
end.