с клавиатуры вводятся 11 чисел найти произведение отрицательных чисел делящихся на 17.

Question

Информатика

Аннечка

2 мая, 08:36

с клавиатуры вводятся 11 чисел найти произведение отрицательных чисел делящихся на 17.

+2

Ответы (2)

Знаете ответ на вопрос?

Федорыч · Answer 1

поставить условие "если число меньше 0, и целая часть от (число/17) равна (число/17), то умножай на это число, иначе умножай на 1" (чтобы ничего не изменилось)

Флорентин · Answer 2

var s, i, x:integer;

begin

s:=1;

for i:=1 to 11 do begin

readln (x) ;

if (x<0) and (x mod 17 = 0) then s:=s*x;

end;

if s1 then writeln (s) else writeln ('0') ;

end.