с клавиатуры вводятся числа пока их сумма меньше 300. Найти произведение отрицательных чисел делящихся на 3

Question

Информатика

Магдалина

17 августа, 16:07

с клавиатуры вводятся числа пока их сумма меньше 300. Найти произведение отрицательных чисел делящихся на 3

+1

Ответы (1)

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

Николаич · Answer 1

var x, s, p:integer;

begin

p:=1;

while s<300 do begin

readln (x) ;

if x mod 3=0 then p:=p*x;

s:=s+x;

end;

if p1 then writeln (p) else writeln ('0') ;

end.