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

var n,i,k: integer;

begin

write('n = ');

readln(n);

i:=0;

k:=0;

while ilt;=n do

begin

if i mod 2 lt;gt; 0 then k:=k+1;

i:=i+1;

end;

writeln('k = ',k);

end.

Пример:

n = 10

k = 5

program eee;

var

q,w,n: integer;

begin

readln(n);

q:=0;

w:=0;

n:=n+1;

while ngt;1 do begin

n:=n-1;

if n div 2gt;0 then

q:=q+1;

if n div 2=0 then

w:=w+1;

end;

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

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

end.