Предмет: Информатика,
автор: Vrozen
с клавиатуры вводятся числа пока их сумма меньше 300. Найти произведение отрицательных чисел делящихся на 3
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Химия,
автор: irkash85
Предмет: Математика,
автор: k87714500798
Предмет: Алгебра,
автор: olesechka2004
Предмет: Физика,
автор: zanzibar