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

жансая87 жансая87    3   18.03.2019 22:00    2

Ответы
1007199 1007199  26.05.2020 01:17

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 p<>1 then writeln(p) else writeln('0');
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика