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

---
 .../SU03_2024_11_05_IF_DO/05_triples.f95         | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/05_triples.f95

diff --git a/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/05_triples.f95 b/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/05_triples.f95
new file mode 100644
index 0000000..a20208a
--- /dev/null
+++ b/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/05_triples.f95
@@ -0,0 +1,16 @@
+program tripel
+    implicit none
+    
+    INTEGER :: i, j, k ! Zählvariablen
+
+    WRITE(*,*) "Folgende Tripel ergeben als Summe 50 :"
+
+    DO i = 0, 50
+        DO j = 0, 25
+            DO k = 0, 16
+                IF (i+j+k == 50) WRITE(*,*) i, j, k
+            END DO
+        END DO
+    END DO
+
+end program tripel
\ No newline at end of file
-- 
GitLab