Çözüldü Pozitif Tam Sayılar - Programlama

a, b, c ∈ Z^(+), a > b > c, a + b / c = 99, Maksimum(a + b + c) = ?

a + (a - 1) / [ (a - 1) / 2 ] = 99
a + 2 = 99
a = 97
b = a - 1 = 97 - 1 = 96
c = (a - 1) / 2 = 06 / 2 = 48
Maksimum(a + b + c) = 97 + 96 + 48 = 241
---
İlgilenen öğrenci üyeler için Fortran uygulaması:

https://image.ibb.co/i9fgLo/sayisal_toplam.png

Program:

Kod:

program sayisal_toplam
integer :: a,b,c,i=1
integer :: toplam(300)=0,ax(300)=0,bx(300)=0,cx(300)=0

do a=1,99
   do b=1,98
      do c=1,97
         if((a>b).and.(a>c).and.(b>c).and.(mod(b,c)==0).and.   &
            (a+b/c==99)) then
            toplam(i)=a+b+c;ax(i)=a;bx(i)=b;cx(i)=c
            i=i+1
         endif 
      enddo
   enddo
enddo

write(6,50)'Maksimum(a + b + c) = ',maxval(toplam)
write(6,60)'a = ',ax(maxloc(toplam)),', b = ',bx(maxloc(toplam)),',&
& c = ',cx(maxloc(toplam))

50 format(a,i3,/)
60 format(3(a,i2),/)
end