Question

In fisierul in.txt se afla pe prima linie un numar natural intre 2 si 1000 iar pe a doua linie n numere naturale de cel putin 2 si cel mult 9 cifre. Scrie un program Pascal care afiseaza pe ecran suma elementelor pozitive care sunt numere prime.

Answer 1

Răspuns:

program Oglindite;

var f:text;

   n,i,num,s:integer;

function prim(a:integer):boolean;

var d:integer; p:boolean;

begin

    p:=true;

    if a mod 2=0 then p:=false

    else

      begin

        d:=3;

        while (d*d<=a)and(p=true) do

          begin

            if a mod d=0 then p:=false;

            d:=d+2;

          end;

      end;

   prim:=p;

end;

begin

 assign(f,'in.txt'); reset(f);

 readln(f,n); s:=0;

 for i:=1 to n do

   begin

     read(f,num);

     if (num>0)and (prim(num)) then s:=s+num;

   end;

   close(f);

   writeln('suma elementelor prime: ',s);

end.

Explicație: