Question

In fisierul text in.txt se afla pe prima linie un numar natural n cuprins intre 2 si 1000 iar pe a doua linie n numere naturale de cel putin 2 si cel mult 9 cifre. Scrieti un program Pascal care afiseaza pe ecran numarul de elemente care sunt patrate perfecte.

Answer 1

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: