var i,n,d:integer;
a:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do readln(a[i});
d:=0;
for i:=1 to n do
if sqrt(a[i}) = trunc(sqrt(a[i])) then d:=d+1;
writeln(d);
readln
end.
TỪ BÀI TRÊN EM HÃY VIẾT PHƯƠNG TRÌNH LÀM VIỆC VỚI TỆP
Loga
Sinh Học lớp 12
