(έχω διαβάσει τα άλλα topic)
Παιδιά ... ευχαρίστως να σας κάνω post όλο τον κώδικα, αλα δεν επιτρέπετε, ... εννοώ εντάξει το παρέληψα.
To halt(0); το έχω βάλει.
Απλά όλα φένονται σωστά , αλλά βγένει το error
OutputFile : text;
BestKerdos : real;
Κώδικας: Επιλογή όλων
Assign(OutputFile,'profit.out');
Rewrite(OutputFile);
Writeln(OutputFile,XXXXXXXXX);
Close(OutputFile);
halt(0);
με σωστή απάντηση το 2.000
Τελευταία επεξεργασία από το μέλος
thetrojan01 την Τετ Ιαν 05, 2011 6:15 pm, έχει επεξεργασθεί 1 φορά συνολικά.
Λόγος: .