Το e-steki είναι μια από τις μεγαλύτερες ελληνικές διαδικτυακές κοινότητες με 67,445 εγγεγραμμένα μέλη και 3,409,908 μηνύματα σε 102,141 θέματα. Αυτή τη στιγμή μαζί με εσάς απολαμβάνουν το e-steki άλλα 154 άτομα.
Γεια σε όλους!
Θα ήθελα τη βοηθειά σας στο παρακάτω. Είστε η τελευταία μου ελπίδα
program test
integer: a,b,x,y,z,i
real c,m,sum
open(1,file="αρχείο.txt",status="old")
i=0
sum=0
do
read(1,10,end=500)a,b,c
10 format(i3,2x,i2,2x,f4.1)
m=a+b
sum=sum+c
print*, m,c
read(1,*)x,y,z
if(x+y>z) then...
Το forum μας χρησιμοποιεί cookies για να βελτιστοποιήσει την εμπειρία σας.
Συνεχίζοντας την περιήγησή σας, συναινείτε στη χρήση cookies στον περιηγητή σας.