n_prim.pas

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

program nr_prim;
var n,i,k:integer;
begin
write('n= ');
readln(n);
k:=0;
for i:=2 to (n div 2) do
        if (n mod i=0) then
        begin
             n:=n div i;
             writeln(i);
             k:=k+1;
        end;
if k=0 then writeln('n este nr. prim')
       else writeln('n nu este nr. prim');
end.