teza3fis.pas

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

program teza3;
var f:text;
    v:array[1..100] of integer;
    n,i,a,r,b,p:integer;
begin
assign(f, 'pal.in');
reset(f);
while not eof(f) do
                 begin
                 n:=0;
                 begin
                 while not eoln(f) do
                                   begin
                                   n:=n+1;
                                   read(f,v[n]);
                                   end;
                 for i:=1 to n do
                               begin
                               b:=0;
                               a:=v[i];
                               repeat
                               r:=a mod 10;
                               a:=a div 10;
                               b:=b*10+r;
                               until a=0;
                               if v[i]=b then inc(p);
                               end;
                 end;
               readln(f);
               end;
close(f);
write(p,'numere palindrom');
readln;
end.