Question

Вводятся N натуральных чисел. Найти сумму четных и произведение оканчивающихся на 2, но не на 22. ​

Answer 1

var

 n,a,sum,pr: integer;

begin

 write('N: '); readln(n);

 sum:=0; pr:=1;

 repeat

   readln(a);

   if a mod 2 = 0 then

     begin

       sum:=sum+a;

       if (a mod 10 = 2) and (a mod 100 <> 22) then

         pr:=pr*a;

     end;

   dec(n);

 until n=0;

 if sum <> 0 then writeln('Sum: ',sum)

   else writeln('Error sum');

 if pr <> 1 then writeln('Pr: ',pr)

   else writeln('Error pr');

end.