X
تبلیغات
رایتل

قرآن در کامپیوتر

دانلود نرم افزار های قرآنی یه صورت رایگان

مغلوب

مغلوب 
کلمه ای را دریافت سپس مغلوب آن را چاپ کند
مثال
ورودی       Rfazli
خروجی      ilzafR

 q  را در آخر هر خط پاک کنید


   cls                                q
input n$                        q
a=len(n$)                     q
for i=a to 1 step -1        q
print mid$ (n$,i,1)         q
next i                           q
end                              q

 

تاریخ ارسال: چهارشنبه 17 مرداد‌ماه سال 1386 ساعت 09:53 ق.ظ | نویسنده: مهندس | چاپ مطلب 0 نظر