Program One; var a, b, c: real; count : byte; begin readln (a, b, c); count := 0; if a < 0 then inc (count); if b < 0 then inc (count); if c < 0 then inc (count); wrireln (count); end.
Надеюсь на лучший ответ:)
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
