Sửa đề: bỏ nhập k vài nó ko liến quan, bạn vui lòng bổ sung chi tiết câu hỏi.
uses crt; var i,n,d:longint; a:array[1..10000000]of longint; begin clrscr; write('n=');readln(n); for i:=1 to n do begin write('a[',i,']=');readln(A[i]); if sqrt(a[i])=trunc(sqrt(a[i])) then inc(d); end; writeln(d); readln; end.
Sửa đề: bỏ nhập k vài nó ko liến quan, bạn vui lòng bổ sung chi tiết câu hỏi.
uses crt; var i,n,d:longint; a:array[1..10000000]of longint; begin clrscr; write('n=');readln(n); for i:=1 to n do begin write('a[',i,']=');readln(A[i]); if sqrt(a[i])=trunc(sqrt(a[i])) then inc(d); end; writeln(d); readln; end.
