Răspuns :
Răspuns:
program perfecte;
var f: text;
n,num,i,contor: integer;
begin
assign(f,'in.txt'); reset(f);
readln(f,n);
for i:=1 to n do
begin
read(f, num);
if sqrt(num)=int(sqrt(num))
then inc(contor);
end;
close(f);
writeln(contor);
end.
Explicație:
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.