\documentclass{book}
\usepackage{amssymb}
\usepackage{amsthm}
\usepackage{thmtools}
\usepackage{xepersian}

\declaretheorem[style=definition,name=\textbf{سوال},qed=$\blacktriangle$,numbered=unless unique]{question}
\declaretheorem[style=definition,name=\textbf{حل},qed=$\blacksquare$, numbered=no]{example}

\newcommand{\ques}[1]{\begin{question} #1 \end{question}}
\newcommand{\solve}[1]{\begin{example} #1 \end{example}}
\begin{document}

\chapter{نام}

\section*{سوالات}
\begin{question}
متن
\end{question}

\begin{example}
متن
\end{example}

\ques{متن}
\solve{متن}
\end{document}