profile
Опубликовано 5 лет назад по предмету Информатика от vdvoin1488

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

Формат выходных данных
Необходимо вывести единственное целое число — искомое произведение. Гарантируется, что результат по модулю не превосходит 109. Если же таких чисел нет, вывести -1.

Примеры
входные данные выходные данные
4
3 24 8 16
128


1
-229
-1

  1. Ответ
    Ответ дан petyaGavrikov

    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

  2. Ответ
    Ответ дан MrMiner1

    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.