Skip to content
Snippets Groups Projects
Commit a5733a44 authored by dali662d's avatar dali662d
Browse files

Update 02_schaltjahre.f95

parent 0448975f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Sonderuebung/WiSe24-25/SU04_2024_11_12_Unterprogramme_Testen-Debuggen/02_schaltjahre.f95
+ 1
− 1
View file @ a5733a44
......@@ -23,7 +23,7 @@ program schaltjahre
! berechne erstes potenzielles schaltjahr (teilbar durch 4)
if (MOD(i,4) /= 0) start = start + 4 - MOD(start,4)
if (MOD(start,4) /= 0) start = start + 4 - MOD(start,4)
if (start <= ende) then
write(*,*) "Die folgenden Jahre sind Schaltjahre:"
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment