Skip to content

Instantly share code, notes, and snippets.

@Ansarina Ansarina/SumTill999.f90 Secret
Created Oct 22, 2015

Embed
What would you like to do?
Program SumTill999
Integer:: sum, a
sum=0
a=0
Do While (a!=999)
sum=sum+a
Read a
End do
Print sum
End Program
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.