Tìm số chính phương

Question

Số chính phương là số có căn bậc hai là một số nguyên. Viết chương trình nhập tìm số chính phương có 4 chữ số biết rằng 2 số trước giống nhau 2 số sau giống nhau 

Answer 1

var i,n:longint; s:string;
begin
for i:=1000 to 9999 do
if (frac(sqrt(i)))=0 then
begin
str(i,s); str(i,s);
if (s[1]=s[2]) and (s[3]=s[4]) then
begin n:=i; break; end;
end;
writeln(n);
readln;
end.