Prosty algorytm w fpc, co w nim źle?


(T Karol) #1

Witam, napisałem następujący program:

program polowa;

var x:string;

    z,y,v,i,a,j:integer;


begin



 readln(a);

 for j:=1 to a do

 begin



    readln(x);

    y:=length(x);

    z:=y div 2;

    v:=z+1;

    delete(x, v, z);

    writeln(x);



 end;


end.

Jak nie było tej pętli (jedynej) nie było żadnego problemu, jak ją wstawiłem program zaczął wyrzucać błąd 106. Pomoże ktoś ??


(Kr2y5i3k) #2

u mnie też działa :slight_smile:


(T Karol) #3

Dzięki, nie wiem dlaczego, ale jak wyłączyłem i włączyłem ponownie komputer to program zaczął działać :smiley: Jeszcze raz dzięki za fatygę i odpowiedź. Pozdro