Найти количество четных чисел в промежутке от 1 до n. n вводится с клавиатуры. в !

1.program ab; 2.var s, n : integer; 3.begin 4)s: =0; 5.for n: =1to10doif n mod2=0then s: =s+1; 6.writeln(s); 7.end.

вроде так.

k : = n div 2;   if odd(n) then inc(k);   writeln(k);

Наполняем  девятилитровое  ведро. в пятилитровом теперь - 0 л, в девятилитровом - 9. переливаем в пятилитровое. в пятилитровом теперь - 5 л, в девятилитровом - 4. опустошаем пятилитровое в пятилитровом теперь - 0 л, в девятилитровом - 4. переливаем из девятилитрового в пятилитровое. в пятилитровом теперь - 4 л, в девятилитровом - 0. наполняем девятилитровое. в пятилитровом теперь - 5 л, в девятилитровом - 8. опустошаем пятилитровое ведро. в пятилитровом теперь - 0 л, в девятилитровом - 8. переливаем из девятилитрового в пятилитровое ведро. в пятилитровом теперь - 5 л, в девятилитровом - 3. опустошаем пятилитровое. остается во втором ведре ровно 3 литра.

Суть нужного алгоритма в следующем: заводим массив из 21 члена. первый член будет соответствовать первой ступени. приравняем его значение к единицы. таким образом для каждой ступени будем считать количество вариантов на неё попадания. для каждой ступени это будет суммой предыдущих двух членов.  то есть a[0]=1, тогда: a[1]=1 //на первую ступень можно попасть одним способом a[2]=1+1=2  //на вторую ступень двумя - с нулевой и с первой a[3]=2+1=3 //на третью ступень можно попасть либо с первой, либо со второй, на которую в свою очередь можно попасть двумя способами a[4]=3+2=5 a[5]=5+3=8 и так далее заметим, что это последовательность фибоначчи. тогда решением будет 21-й член этой прогрессии. можно посчитать вручную, либо через программу. ответ 10 946.