fortran

[bill___]

to problhma pou exo einai:

na grafei ena programma pou na taktopoiei tis egrafes enos seiriakoi arxeiou kata auksousa

taksi megethous otan kseroume pos to kleidi einai enas akeraios arithmos stis 4 protes theseis

kai akolouthoun alles 95 alfarithitikes times ae 8 theseis h mia

emena to problhma mou einai oti den ksero pos tha to kano na diabasei mexri to

telos tou arxeiou gia na diabasei oles tis egrafes

 

ksero pos ginetai se C alla den mporo na to bgalo se fortran

ego egrapsa to eksis gia ayto (mal@kia einai ayto poy egrapsa to ksero mhn to psaxnete)

 

dimension c(10),a(100)

character*8 c

integer a

50 format(i4,10a8)

i=1

open(112,file='f.txt',status='old')

do while(read(112,50,end=200)a(i),c)

i=i+1

enddo

200 continue

close(112)

stop

end

 

as me apantisi kopoios an mporei tora giati ayrio dino fortran!!!!

===========================================

Μην παίρνετε ναρκωτικά, δεν φτάνουν για όλους

===========================================