From 59e7a6f7af31bfdcd46f267c532cca493206d70f Mon Sep 17 00:00:00 2001
From: dali662d <dana.liebscher@mailbox.tu-dresden.de>
Date: Tue, 5 Nov 2024 11:38:40 +0000
Subject: [PATCH] Upload New File

---
 .../07_vierstellige_zahlen.f95                | 22 +++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/07_vierstellige_zahlen.f95

diff --git a/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/07_vierstellige_zahlen.f95 b/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/07_vierstellige_zahlen.f95
new file mode 100644
index 0000000..25c73c0
--- /dev/null
+++ b/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/07_vierstellige_zahlen.f95
@@ -0,0 +1,22 @@
+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
-- 
GitLab