Czesc
Musze wczytac z pliku liczby.txt wygladajacego mniej wiecej tak:
2197
2586
263057
54456
90415
10450
te liczby (jest ich 650). Problem polega na tym ze nie wiem jak je wczytac i wypisac, gdyz po kazdych moich probach wczytuje sie tylko kilka z nich a w dodatku niektore wygladaja hm dziwnie
. Probowalem na rozne sposoby a skonczylem tak:
Kod:
program asdasd;
uses crt;
var i:integer;
a:array[0..650] of string;
liczby:text;
begin
clrscr;
assign(liczby, 'C:\Users\user\Desktop\liczby.txt');
reset(liczby);
readln(liczby,a[0]);
for i:=1 to 650 do
begin
read(liczby,a[i]);
writeln(a[i]);
end;
close(liczby);
readkey;
end.
nie mam juz pomyslow wiec prosze o pomoc. z gory dzieki.