program a; var i,s,r:integer; begin s:=1; read(i); while i<>0 do begin if (i<0)and(i<>0) then r:=r 1 else s:=s*i; read(i); end; writeln(s,r); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
