Ответ(ы) на вопрос:
Гость Var x,p,s:integer;
begin
read(x);
p:=1;
s:=0;
repeat if x>0 then s:=s+x else p:=p*x;
read(x);
until x=0;
writeln(p,s);
end.
Не нашли ответ?
Похожие вопросы