Предмет: Информатика,
автор: vdvoin1488
Дано N чисел. Необходимо определить произведение тех из них, которые делятся на 8, но не делятся на 24.
Формат входных данных
Сначала вводится целое число N, (1≤N≤10). В следующей строке вводится N целых чисел через пробел. Каждое число по модулю не превосходит 1000.
Формат выходных данных
Необходимо вывести единственное целое число — искомое произведение. Гарантируется, что результат по модулю не превосходит 109. Если же таких чисел нет, вывести -1.
Примеры
входные данные выходные данные
4
3 24 8 16
128
1
-229
-1
Ответы
Автор ответа:
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
Автор ответа:
3
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.
Интересные вопросы
Предмет: Математика,
автор: kozhakov
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: kusokpiroga777
Предмет: Алгебра,
автор: Sabaka0o
Предмет: Геометрия,
автор: das45673