var s:string; begin for var i:=1000 to 9999 do begin s:=i.ToString; if((strtoint(s[1]) strtoint(s[2]) strtoint(s[3]) strtoint(s[4]))<4)then write(i,' '); end; end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.