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
- 2 min readBir geliştirici neden Ingilizce bilmelidir?
- 1 min readFibonacci dizisini hesaplayan program
- 5 min readPHP'de PEAR MDB2 ile Güvenli ve Esnek Veritabanı İşlemleri (SQL Injection Önlemleri)
- 2 min readPHP ile tekil anahtar oluşturmak
- 3 min readQBasic'de ekran ve grafik komutları
- 2 min readPHP'de sabitler, server ve ortam değişkenleri
Paylaş