Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {c)Найдите целые числа,
- которые при возведении в квадрат дают палиндромы,
- например, 26 = 676.}
- var
- x,y,z,d,f:integer;
- begin
- for x:=1 to 99 do
- begin
- y:=x*x;
- if (y<1000) then
- begin
- d:=y mod 10;
- while(y>0)do
- begin
- f:=y mod 10;
- y:=y div 10;
- end;
- if(d=f) then write(x,'=',x*x,'; ');
- end
- else
- begin
- d:=y mod 10;
- z:=(y div 10)mod 10;
- f:=(y div 100)mod 10;
- y:=y div 1000;
- if((d=y) and (z=f)) then write(x,'=',x*x,'; ');
- end;
- end;
- readln;
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement