Upload New File

Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/07_vierstellige_zahlen.f95

+program vierstellig
+    implicit none
+
+    INTEGER :: i, j, k, l ! Zählvariablen
+    INTEGER :: res
+
+    WRITE(*,*) "Alle vierstelligen Zahlen aus 1, 2, 3 und 4 :"
+
+    DO i = 1, 4
+        DO j = 1, 4
+            DO k = 1, 4
+                DO l = 1, 4
+
+                    res = i*1000 + j*100 + k*10 +j
+                    WRITE(*,*) res
+
+                END DO
+            END DO
+        END DO
+    END DO
+    
+end program vierstellig
\ No newline at end of file