Upload New File

Sonderuebung/WiSe23-24/SU03_2023_11_07/06_triples_no_dublicates.f95

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