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
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])
By Adalynn
var f,g:text;
i,n,d:integer;
a:array[1..100] of integer;
begin
Assign(f,’BAITAP.inp’); reset(f);
Assign(g,’BAITAP.out’); rewrite(g);
readln(f,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(g,d);
close(f); close(g);
end.