Question

Najmniejszy podzielnik

Napisz program, która czyta listę dodatnich liczb całkowitych i dla każdej z nich wypisuje jej najmniejszy podzielnik (poza liczbą 1).

Wejście

Najpierw program czyta liczbę naturalną N (1 ≤ N ≤ 1000), a następnie wczytuje N liczb całkowitych. Żadna liczba nie przekracza dwóch miliardów.

Wyjście

Program powinien wypisać N liczb całkowitych (każdą w oddzielnym wierszu), będących najmniejszymi podzielnikami wprowadzonych liczb.

Przykład

Wejście:

3
1024
37
1001

Wyjście:

2
37
7

Answer 1

Program dzielniki;
uses Crt;
var
n,i,j,dziel:integer;
tab,wynik: array[1..1000] of Integer;
Begin
ClrScr;
readln(n);
for i:=1 to n do
begin
readln(tab[i]);
end;
for i:=1 to n do
begin
j:=2;
begin
repeat dziel:=(tab[i])mod(j); wynik[i]:=j;inc(j); until dziel=0;
end;
writeln(wynik[i]);
end;
readln;
End.