Даю 40 баллов!Срочно!Сделать алгоритм ** паскале. Задать любое число n и вычислить...

Question

Даю 40 баллов!Срочно!Сделать алгоритм на паскале. Задать любое число n и вычислить сколько нечетных чисел между 0 и n. Алгоритм сделать через while.

Answer 1

var n,i,k: integer;

begin

write('n = ');

readln(n);

i:=0;

k:=0;

while i<=n do</p>

begin

if i mod 2 <> 0 then k:=k+1;

i:=i+1;

end;

writeln('k = ',k);

end.

Пример:

n = 10

k = 5

Comments

Не выводит четные))

---

Выводить четные в задаче не требуется ("вычислить сколько нечетных чисел...").

Answer 2

program eee;

var

q,w,n: integer;

begin

readln(n);

q:=0;

w:=0;

n:=n+1;

while n>1 do begin

n:=n-1;

if n div 2>0 then

q:=q+1;

if n div 2=0 then

w:=w+1;

end;

writeln('Нечетных чисел: ',q);

writeln('Четных чисел: ',w);

end.