Witam, w ramach ćwiczeń robie sobie zadanka ze SPOJ.
Robię sobie zadanie sprawdzające czy dana liczba jest liczbą pierwszą. Kod który napisałem wydaje się poprawny jak go sprawdzam na kompie, ale gdy wysyłam do sprawdzenia to pokazuje mi błąd. Czy ktoś mógłby mi go wskazać?
Treść zadania
Sprawdź, które spośród danych liczb są liczbami pierwszymi
Input
n - liczba testów n<100000, w kolejnych liniach n liczb z przedziału [1..10000]Output
Dla każdej liczby słowo TAK, jeśli liczba ta jest pierwsza, słowo: NIE, jeśli jest złożona.Example
Input:
3
11
1
4
Output:
TAK
NIE
NIE
KOD:
program PRIME_T;
var
a: array [1..100000] of integer;
n:integer;
i,b,c,j:integer;
begin
b:=0;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
begin
c:=0;
for j:=1 to a[i] do
begin
b:=a[i] mod j;
if (b=0) then c:=c+1;
end;
if (c=2) then writeln('TAK') else writeln('NIE');
end;
end.