1 dk okuma
Girilen iki sayının OBEB'ini bulan program
CLS
PRINT "GIRILEN IKI SAYININ OBEBINI BULAN PROGRAM"
INPUT "BIRINCI SAYI = ", N
INPUT "IKINCI SAYI = ", M
IF N < M THEN
YEDEK = N
N = M
M = YEDEK
END IF
KALANBUL:
C = N - INT(N / M) * M
IF C = 0 THEN
PRINT "OBEB = ", M
END
END IF
N = M
M = C
GOTO KALANBUL
Örnek Çıktı:
GIRILEN IKI SAYININ OBEBINI BULAN PROGRAM
BIRINCI SAYI = 126
IKINCI SAYI = 34
OBEB = 2
İlgili Yazılar
- 3 min readPHP Dosyanıza Resim veya Dosya Gömme Tekniği (Base64)
- 2 min readMooTools mu, jQuery mi? JavaScript Kütüphanesi Seçimi Üzerine Düşünceler
- 2 min readPHP'de döngüler
- 2 min readQBasic'de kontrol yapıları ve döngüler
- 1 min readFaktöriyel hesaplayan program
- 1 min read1'den Girilen sayıya kadar olan tamsayıların toplamını bulan program
Paylaş