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

Question

Информатика

Егор

5 марта, 21:21

с клавиатуры вводятся числа пока их сумма меньше 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.