Question

Ввести число n. Вывести количество его простых делителей. В паскале!!

Answer 1

uses crt;
var
i,j,s,n,k:integer;
begin
clrscr;
writeln('vvedite chislo');
readln(n);
for i:=2 to n-1 do
begin
k:=0;
for j:=2 to i-1 do
if i mod j=0 then k:=1;
if (k=0)and(n mod i=0)then
begin
write(i,' ');
s:=s+1;
end;
end;
writeln;
writeln('Chislo delitelii =',s);
readln;
end.