1 files changed, 21 insertions, 0 deletions
diff --git a/3808/CH4/EX4.15/Ex4_15.sce b/3808/CH4/EX4.15/Ex4_15.sce
new file mode 100644
index 000000000..894d8d040
--- /dev/null
+++ b/3808/CH4/EX4.15/Ex4_15.sce
@@ -0,0 +1,21 @@
+//Chapter 04:Number Theory and Cryptography
+
+clc;
+clear all;
+
+//To find the GCD using euclidean algorithm
+
+function gcd(a,b)
+    x=a
+    y=b
+    while y ~=0
+        r=modulo(x,y)
+        x=y
+        y=r
+    end
+mprintf("GCD(%d,%d) = %d",a,b,x)
+endfunction
+
+n1=input("Enter 1st Number:")
+n2=input("Enter 2nd Number:")
+gcd(n1,n2)