suma_nr_.pas

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

program suma_nr_prime;
var n,p,i,t :integer;
begin
write ('n=');readln(n);
p:=0;
t:=0;
if (1<=n) and(n<=1000) then
  for i:=2 to n-1 do
  begin
  if n mod i =0 then p:=p+1;
      if p=0 then
      begin
      write ('i=',i);
      t:=t+1;
      end;
   write('t=',t);
   end;
end.