pal_cu3.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 27 行

program palindroame_cu_3_cifre;
{sa se scrie toate palindroamele dintre a si b}
var a,b,c:integer;
function pal(x:integer):integer;
var r,i,n,s:integer;
begin
n:=x;
r:=n;
s:=0;
repeat
      begin
           i:=n mod 10;
           s:=s*10+i;
           n:=n div 10;
      end;
until n=0;
if s=r then pal:=1
       else pal:=0;
end;
begin
write('a= ');
readln(a);
write('b= ');
readln(b);
for c:=a to b do
if (pal(c)=1) then writeln(c);
end.