Помогите решить задачу в Pascal

[kickmaster]

Помогите решить задачу в Pascal

Определить количество нечетных чисел в натуральном числе N.Заранее благодарен

 

[Gruvi]

Какой именно pascal? :telepat:

Подскажу лишь что задание можно сделать через рекурсию.

 

[Vladimir_S]

Подскажу лишь что задание можно сделать через рекурсию.

Можно и через рекурсию... Но я бы на свой вкус сделал так:

Var
 N:LongInt;
Begin
 Write('N= ');
 Readln(N);
 Write('Number of odds in N is ');
 If (N mod 2)=0 then Writeln(N div 2) else Writeln((N div 2)+1);
 Readln
End.

 

[kickmaster]

Какой именно pascal? :telepat:

Подскажу лишь что задание можно сделать через рекурсию.

Pascal Lazarus если это то)