\documentclass[11pt, a4paper]{article}
\usepackage{amsmath,amssymb,amsthm,tabularx}
\usepackage[left=1.5cm,right=1.5cm,top=1cm,bottom=1cm,nohead]{geometry}
\usepackage{multicol}
\usepackage{xepersian}
\settextfont[Scale=1]{Yas}
\newcommand{\بارم}[1]{\hfill\rl(#1~نمره)}
%--------------------------------------------------------------------------------------------------------------
\begin{document}

\columnseprule=0.5pt
\begin{multicols*}{2}
\begin{enumerate}

\item
برنامه‌ای به زبان فرترن برای محاسبه $ \sum_{n=0}^{100}\frac{2^n}{n!} $ بنویسید. \بارم{۴}
\item
برنامه‌ای به زبان فرترن بنویسید که یک ماتریس $m\times n$ را (از صفحه کلید) بخواند. سپس یک عدد جدید از صفحه کلید خوانده شده و با عناصر ماتریس مذکور مقایسه می‌گردد. اگر با هیچ یک از آنها برابر نبود یک پیغام چاپ می‌شود. اگر عدد مذکور با یک و یا چند عنصر ماتریس برابر بود، آنگاه اندیس عناصر مساوی چاپ می‌شود. \بارم{۴}
\end{enumerate}
\end{multicols*}
\end{document}