witam wszystkich !
Piszę gdyż napotkałem problem który mnie przerósł !
rozwiązałem zadanie ze strony
http://pl.spoj.pl/problems/MWPZ06Z/
już wkleję kod rozwiązania, tylko przedstawie mój problem,
polega on na tym ze gdy testuje program z linii komend przez napisanie program.exe < test.in
to wyrzuca błędne odpowiedzi ( nie wszystkie) a gdy ręcznie sprawdzam to wszystko jest dobrze. Rozwiązanie takze jest poprawne!
program tojuzjutro;
var
l,z,ile,r,tmp,i:integer;
c:array[1..10000] of integer;
s:ansistring;
function strint(s:string):integer;
var
nr:integer;
begin
val(s,nr);
strint:=nr;
end;{}
begin
readln(ile);
for z:=1 to ile do
begin
read(l);
read(s);
delete(s,1,1);
for i:=1 to length(s) do
c[i]:=strint(s[i]);
r:=0;
for i:=1 to length(s) do
begin
tmp:=c[i] + 10*r;
c[i]:=tmp div l;
r:= tmp mod l;
end;
if r <> 0 then writeln('NIE') else
writeln('TAK');
end;
end.
wykonuje dzielenie pisemne na duzych liczbach i sprawdzam czy pozostaje reszta ( R ) gdy pozostaje to wypisz NIE a w przeciwnym razie wypisz TAK
Testy znalazłem na stronie :
http://2006.mwpz.poznan.pl/resources.php
"zawody próbne zadanie Z"
Prosiłbym o wskazówkę dlaczego podczas automatycznego testowania jest błąd ?
z góry serdecznie dziękuję