Upload New File

Sonderuebung/WiSe23-24/SU03_2023_11_07/05_triples.f95

+program tripel
+    implicit none
+    
+    INTEGER :: i, j, k ! Zählvariablen
+
+    WRITE(*,*) "Folgende Tripel ergeben als Summe 50 :"
+
+    DO i = 0, 50
+        DO j = 0, 50
+            DO k = 0, 50
+                IF (i+j+k == 50) WRITE(*,*) i, j, k
+            END DO
+        END DO
+    END DO
+
+end program tripel
\ No newline at end of file