Jater

Elena_for

Nov 27th, 2012
98
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {Назовем натуральное число палиндромом,
  2. если его запись читается одинаково с начала и с конца
  3. (как, например 4884, 393, 1). Найти все меньшие 100 числа - палиндромы,
  4. которые при возведение в квадрат также дают палиндромы.}
  5. var
  6.     i,x,y,d,h:integer;
  7. begin
  8.     for i:=0 to 99 do
  9.         begin
  10.         if(i<10) then
  11.             begin
  12.             x:=sqr(i);
  13.             if(i>3) then
  14.                 y:=x mod 10;
  15.             x:=x div 10;
  16.             if(y=x)and(i>3) then write(i:4);
  17.             if(i<4) then write(i:4);
  18.             end
  19.         else
  20.             begin
  21.             x:=sqr(i);
  22.             if(i<32) then
  23.                 y:= x div 100
  24.             else
  25.             begin
  26.                 y:=x div 1000;
  27.                 d:=(x div 100)mod 10;
  28.                 h:=(x div 10)mod 10;
  29.             end;
  30.             x:=x mod 10;
  31.             if ((i mod 10)=(i div 10))and((y=x)and(d=h)) then
  32.                 write(i:4);
  33.             end;
  34.         end;
  35.     read;
  36. End.
RAW Paste Data