Featured Post

পরিত্যাক্ত শহর হাওড়া

  তৃতীয় বিশ্বযুদ্ধ শেষ হবার পরে অনেক কিছুর বদল হয়েছে। এখন পৃথিবী সূর্যের চারিদিকে ঘরে না বরং সূর্য সহ অন্য সকল গ্রহকে কৃত্রিম ভাবে পৃথিবীর চারিদিকে ঘোরানো হচ্ছে।সেই সময় এর কথা মৃত নগর হাওড়া। তৃতীয় বিশযুদ্ধের সময় চিনা বোমা বর্ষণের ভয়ে সমস্ত নগরবাসী পলায়ন করেছিলো। ডাঃ কেসি পাল এর নেতৃত্বে ওরা মোট চারজন মানে রমেশ, সুমিত ও মাধব সেই রহস্যময় তেজস্ক্রিয় উৎসের সন্ধানে এসেছে। সকাল এগারোটা ঝোঁপ ঝাড় ভর্তি গলি রাস্তা যেখানে বহুবছর কোনো লোকের পা পড়েনি। রাস্তার ধারে ভগ্নপ্রায় লতা পাতা দ্বারা আচ্ছাদিত হয়ে সারি সারি বাড়ি দাড়িয়ে আছে। মাঝে মাঝে কিছু বন্য পাখির ডাক শোনা যাচ্ছে। ঝিঁঝিঁ পোকার ডাকে ওদের পায়ের শব্দ ঢাকা পড়ে গেলেও ওদের যাবার রাস্তার সামনে দিয়ে কি যেনো সর সর করে রাস্তার দুদিকে নেমে যাচ্ছে।ওদের পায়ের কম্পনে রাস্তার উপর ঘাস থেকে ছোটো ছোট পোকা উড়ছে। বাতাসে ঘেঁটু ফুলের গন্ধে ছেয়ে আছে। কিছুদিন আগে ইসরোর এক কৃত্রিম উপগ্রহ ছবিতে এই পরিত্যাক্ত মৃত নগরীর উপর এক রহস্যময় আলোর সন্ধান জানা যায়। তারপর অন্য স্যাটেলাইট এর স্পেকট্রোস্কোপি বিশ্লেষণ এর মাধ্যমে জানা যায় ঐ আলোক কোনো তেজস্
!Given a set of integers write a program to find those which are palindromes.
!For example ,the number 123321 is a palindrome as it reads the same
!from left to right and from rigfht to left


program palindrome
implicit none
integer::x,digit,rev_x,y
rev_x=0
print*,"Type the number"
read*,y
print*,"number is",y
x=y
do
if(x==0)then
exit
else
digit=mod(x,10)
x=x*0.1
rev_x=(rev_x+digit)*10
endif
enddo
rev_x=rev_x/10
print*,"The reverse of the typed number is=",rev_x
if(y==rev_x)then
PRINT*,"The number is a palindrome number"
else
print*,"The number is not a palindrome number"
endif
print*,y
end program palindrome

Popular posts from this blog

Some Funny Mathematical Questions

Puthon3

পৃথিবীর কোনো এক আদিম সকাল