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

Question

Владимир Матвеев

Информатика

28 января, 03:56

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

+3

Ответы (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.