diff --git a/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/06_triples_no_dublicates.f95 b/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/06_triples_no_dublicates.f95 index f33cda3e8a330ee163dbcf96e01edba339de7940..1bbf971fb9af15c83e7406520b12e44498081a59 100644 --- a/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/06_triples_no_dublicates.f95 +++ b/Sonderuebung/WiSe24-25/SU03_2024_11_05_IF_DO/06_triples_no_dublicates.f95 @@ -6,7 +6,7 @@ program tripel WRITE(*,*) "Folgende Tripel ergeben als Summe 50 :" DO i = 17, 50 - DO j = 17, 25 + DO j = 0, 25 DO k = 0, 16 IF (i+j+k == 50) THEN IF (i >= j .AND. j >= k) THEN