Дано N чисел. Необходимо определить произведение тех из них, которые делятся ** 8, но не...

Question

Дано N чисел. Необходимо определить произведение тех из них, которые делятся на 8, но не делятся на 24. Формат входных данных Сначала вводится целое число N, (1≤N≤10). В следующей строке вводится N целых чисел через пробел. Каждое число по модулю не превосходит 1000. Формат выходных данных Необходимо вывести единственное целое число — искомое произведение. Гарантируется, что результат по модулю не превосходит 109. Если же таких чисел нет, вывести -1. Примеры входные данные выходные данные 4 3 24 8 16 128 1 -229 -1

Answer 1

var n, i, a, p: integer;

begin

readln(n);

p:=1;

for i:=1 to n do

begin

read(a);

if (a mod 8=0)and(a mod 24<>0) then p:=p*a;

end;

if p<>1 then writeln(p) else writeln(-1);

end.

Пример:

4

3 24 8 16

128

Answer 2

Program n_1;

var n, a, s, i:integer;

begin

   s:=1;

   readln(n);

   for i:=1 to n do begin

       read(a);

       if (a mod 8 = 0) and (a mod 24 <> 0) then s:=s*a;

   end;

   if s<>1 then writeln(s) else writeln('-1');

end.