Çözüldü Sum of Positive Integers - Arithmetic Series

How many different values can the sum of two distinct three-digit positive integers hold?
https://www.facebook.com/photo.php?fbid=219020592346204&set=gm.2211713182419919&type=3&theater&ifg=1

Min(sum) = 100 + 101 = 201
Max(Sum) = 998 + 999 = 1997
The number of all terms in an arithmetic progression with common difference, first and last elements are 1, 201, 1997 respectively is 1997 - 201 + 1 = 1797.

Bilgisayar programlamayla ilgilenen öğrenci üyeler için Fortran uygulaması:

https://i.ibb.co/9NVk3Xx/farkli-toplamlar-Fortran.png

Program:

Kod:

program ucbasamakli
implicit none
integer :: i,j,k=1,m=0,n
integer, dimension(1098*999) :: T
integer, allocatable :: Toplam(:), res(:)

open (unit = 1, file = "Farkli_Toplamlarin_Listesi.txt")

do i = 100, 997
   do j = i+1, 1000
      T(k) = i + j
      k = k + 1
   enddo
enddo

Allocate(Toplam(k))

do i = 1, k
   Toplam(i)=T(i)
enddo

allocate(res(size(Toplam)))

res(1)=Toplam(1)

   do n=0,size(Toplam)
      if (any(res == Toplam(n))) cycle
          m = m + 1
          res(m) = Toplam(n)
   enddo

print*,''
write(*,fmt='(a,i4,a,/)') 'Farkli Toplamlar: ',m-1,' adet.&
& Farkli_Toplamlarin_Listesi.txt dosyasina bakiniz.'

i=1
do n = m,2,-1
!   print*,res(n)
   write(1, 10) i,'    ',res(n); i=i+1
enddo

10 format (i4,a,i4)

deallocate(Toplam,res)

close(1)

end program