Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад