venerdì, settembre 26, 2008

Ciao..nel primo pomeriggio da 4 ore dell'anno abbiamo visto il programma in Pascal per corregere i cloze...
è il seguente:

program leggifile;
uses wincrt;
var f:text; p:string; m:byte; c:integer;
begin
ClrScr;assign(f,'e.txt'); reset(f);
while not eof(f) do begin
readln(f,p);
val(copy(p,1,1),m,c);
writeln(n,' ');
writeln(copy(p,2,lenght(p)-1));
end;
close(f);
end.

Nessun commento: