OJ Board

you use brute-force and that's not good enough for very long strings. you have to think of something faster

i just want to know is free pascal supported by win xp? and if not, what pascal compiler could i use under win xp?

Do I have a wrong approach or what?
I dunno why i get WA.


program tasks;
var level:array[1..100] of byte;
nodes:array[1..6000,1..2] of byte;
m,n,i,j:integer;
gotovo,prva:boolean;

begin
while true do
begin
readln(n,m);
if (n=0) and (m=0) then halt;

for i:=1 to m do readln(nodes[i,1],nodes ...

why do i get WA? :evil:

[pascal]program comb(input,output);
var m,n,i,j:byte;
popis:array[1..100,1..2] of boolean;
umnozak:longint;
begin
repeat
readln(n,m);
if (n=0) and (m=0) then halt;

for i:=m+1 to n do
begin
popis[i,1]:=true;
end;
for i:=1 to n-m do
begin
popis[i,2]:=true;
end ...