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

Question

Информатика

Симеон

25 мая, 04: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.