nr_prime.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 20 行

program nr_prime;
{sa se scrie nr prime mai mici ca n}
var n,i,k,s:integer;
begin
write('n= ');
readln(n);
k:=0;
s:=0;
for s:=0 to n do
repeat
for i:=2 to (n-1) do
       if ((n-1) mod i=0) then
       begin
             n:=(n-1) div i;
             k:=k+1;
        end;
if k=0 then writeln(n-1);
until s=(n-1);
end.