পৃষ্ঠাসমূহ

মঙ্গলবার, ১ জানুয়ারী, ২০১৩

1 থেকে 99 পর্যন্ত বিজোড় সংখ্যাগুলোর যোগফল; ফোরট্রান

program sum1to99
implicit none
integer::i,sum=0
do i=1,99,2
  sum=sum+i
  enddo
  write(*,*)'1+3+5+...+99=',sum
  endprogram sum1to99
এর দ্বারা পোস্ট করা এই সময়ে
লেবেলসমূহ: , ,

1 টি মন্তব্য:

এতে সদস্যতা: মন্তব্যগুলি পোস্ট করুন (Atom)
ব্লগটি মাত্র শুরু হয়েছে। তাই যেকোন অসঙ্গতির জন্যে ক্ষমাপ্রার্থী