составить программу нахождения количества четных и нечетных делителей числа!
Я вроде написал код,но что-то не хочет он выполнятся,не подскажете почему и где я ошибся? var chet,nechet,g,v,s,n:Integer;
Begin
chet:=0;
nechet:=0;
g:=0;
v:=0;
s:=0;
ReadLn(n); {Вводим наше число}
s:=n mod 2; {Смотрим на остаток}
if s=0 then chet:=chet+1 {Если остаток равен 0,то число чётное}
else
nechet:=nechet+1; {Иначе,нечётное}
repeat
if N>1 then begin
V:=n-1;
s:=n mod v; {Теперь делим N на следующее убывающее число}
end;
if s=0 then begin
WriteLn(V);
ReadLn;
g:=v mod 2
end;
if g=0 then chet:=chet+1
else
nechet:=nechet+1
until v=0;
WriteLn('неч=',nechet+1,' ','чет=',chet);
ReadLn
end.
Добавлено (29.11.2010, 01:45)
---------------------------------------------
Видимо сайт утух,бесполезно тут вообще что писать...
Вот кстати переделал:
var chet,nechet,v,n:Integer;
Begin
chet:=0;
nechet:=0;
ReadLn(n); {Вводим наше число}
For v:=1 to n do begin
if (n mod v=0) then
if (v mod 2=0) then chet:=chet+1
else
nechet:=nechet+1
end;
WriteLn('неч=',nechet,' ','чет=',chet);
ReadLn
end.
