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 readN'nin M'li kombinasyonunu bulan program
- 1 min readGirilen sayının mükemmel sayı olup olmadığını bulan program
- 1 min readFibonacci dizisini hesaplayan program
- 2 min readQBasic ile ilgili temel bilgiler
- 2 min readBir geliştirici neden Ingilizce bilmelidir?
- 1 min readGirilen dizideki en büyük elemanı bulan program
Paylaş