Çözüldü OBEB - Programlama

Konusu 'Ivır Zıvır Sorular - Sohbet (Trivial Questions - Chat)' forumundadır ve serseri tarafından 17 Ocak 2011 başlatılmıştır.

Yüklüyor...
  1. serseri

    serseri Yeni Üye

    Mesajlar:
    9
    Beğenileri:
    0
    Karelerinin toplamı 369 olan iki doğal sayının ortak bölenlerinin en büyüğü 3 ise sayıların toplamı kaçtır? (Cevap: 27)
    Son düzenleyen: Moderatör: 8 Mart 2017
    serseri, 17 Ocak 2011
    #1
     
    : Fortran

    2. Benzer Konular: Programlama
    Forum Başlık Tarih
    Limit ve Süreklilik,Türev,İntegral Üstel Fonksiyonlu Denklem-Türev-Ara Değer (Intermediate Value) Teoremi-Programlama 24 Temmuz 2026
    Hatalı - Tekrarlanmış Sorular veya Çözümler (Faulty - Repeated Questions or Solutions) Polinom Sayısı - Programlama 21 Temmuz 2026
    Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK Basamak Analizi - Eşitsizlik - Programlama 11 Temmuz 2026
    Doğal Sayılar,Tam Sayılar,Bölme Bölünebilme,EBOB-EKOK Pozitif Tam Sayılar - Programlama 6 Temmuz 2026
    Üniversitelerin Sayısal Bölümlerini Hedefleyen LGS Öğrencileri Olasılık - Programlama (8. Sınıf Seviyesi) 2 Temmuz 2026

  2. murat_16

    murat_16 Yeni Üye

    Mesajlar:
    355
    Beğenileri:
    126
    x=3k
    y=3m
    9k^2+9m^2=369
    k^2+m^2=41
    k=5, m=4
    x=15, y=12
    x+y=27.

    Bu soru başka yerde de mi soruldu ya da ben cevabı gönderdiğimi zannediyorum
    murat_16, 17 Ocak 2011
    #2
    Honore bunu beğendi.
  3. Honore

    Honore Yönetici Yönetici

    Mesajlar:
    11.303
    Beğenileri:
    652
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)
    Bilgisayar kodlama (programlama) ile ilgilenen öğrenciler için Fortran çözümü:
    [​IMG]
    https://i72.servimg.com/u/f72/19/97/10/39/karele15.png

    Program:
    Kod:
    ! Karelerinin toplamı 369 olan iki doğal sayının ortak bölenlerinin en
! büyüğü 3 ise sayıların toplamı kaçtır?
program karelertoplami

integer :: x, y, gcd

ilk: do x = 1, 100; do y =1, 100

   if (((x**2 + y**2)==369).and.(GCD(x,y)==3)) then
      print*,"";write(6,10)"       x = ",y, "       y = ",x,"   x + y = ",x+y; exit ilk
   endif

enddo; enddo ilk

10 format (3(a,i3,2/))

end

!https://rosettacode.org/wiki/Greatest_common_divisor#Iterative_Euclid_algorithm_3
integer function gcd(v,t)
integer, intent(in) :: v, t
integer :: c, b, a
b = t
a = v
do
  c = mod(a, b)
  if (c == 0) exit
  a = b
  b = c
end do

gcd = b

end function gcd
    Honore, 13 Kasım 2025
    #3

Sayfayı Paylaş