Một số K được gọi là số chính phương khi và chỉ khi tồn tại 1 số nguyên x sao cho x2 = K (x mũ hai). Tìm tất cả các số chính phương trong khoảng a, b ( 3 < a < b < 1000) Dữ liệu vào từ file SOCHINHPHUONG.INP gồm 1 dòng có 2 số a, b cách nhau ít nhất một khoảng cách Kết quả ghi ra file SOCHINHPHUONG.OUT gồm 1 dòng là các số chính phương trong khoảng a đến b VD sochinhphuong.inp 4 20 sochinhphuong.out 9 16
var i,a,b:longint;
function cp(a:longint):boolean;
begin
if sqr(trunc(sqrt(a)))=a then cp:=true else cp:=false;
end;
begin
readln(a,b);
for i:=a to b do
if cp(i) then write(i,’ ‘);
readln
end.