Viết chương trình nhập một dãy n nguyên dương 32 bit,hãy in ra cá phần tử là số chính phương (n<=10^4) bài dự thi của tuiiii
Viết chương trình nhập một dãy n nguyên dương 32 bit,hãy in ra cá phần tử là số chính phương (n<=10^4) bài dự thi của tuiiii
var i,n: integer; ckq: boolean; arr: array[1..10000] of integer;
begin
write(‘Nhap so luong phan tu: ‘);
readln(n);
for i:=1 to n do
begin
write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘);
readln(arr[i]);
end;
writeln(‘Ket qua: ‘);
for i:=1 to n do
if (frac(sqrt(arr[i]))=0) then
begin
ckq:=true;
writeln(i);
end;
if (ckq=false) then writeln(‘Khong co so nao thoa man.’);
readln
end.