Склавиатуры вводится натуральное число. определите сколько в его записи нечетных чисел

Var  n: longint;   k: integer; begin    k: =0;     write('введите число: ');     readln(n);     while n> 0 do    begin      if n mod 10 mod 2< > 0 then      k: =k+1;       n: =n div 10;     end;     writeln('в числе   ',k,' нечетных цифр');     readln; end.

по условию на каждый этаж нужно ровно одному магу.

пусть n - искомый (самый выгодный этаж для остановки), тогда магу живущему на n этаже не придется идти ни вверх, ни вниз.

вверх нужно подняться 2020-n магам, на на 1, 2, 3, …, 2021-n этажей соответственно. вниз придётся спускаться n-1 магу, на 1,2,3,…, n-1 этажей.

подсчитаем общее количество неудовольствий с учётом того, что маги не любят подниматься вверх в двойне.

заметим, что минимум полученного квадратного трёхчлена достигается в точке n= . в силу того, что n – целое, а также парабола имеет ось симметрии, лифт должен подняться на 1441 этаж (минимум точки 1440,52)округляем до целого.

ответ: 1441

p.s. не уверен, что это так, но в принципе, должно быть правильно

ответ:

1)3 т.к. а=10

это не меньше пяти и значит из а надо вычесть 7

2)

a : = 10

//а стало равной 10

если a > 5

//10> 5

то a : = a + 12

//значит выполняем это(к а прибавим 12 и получим 22

иначе a : = a - 7

//это игнорим

все

если a > 5

//22> 5

то a : = a + 12

//выполним этот кусок: к а прибавим 12, значит а равно 34

иначе a : = a - 7

все

ответ: 34

3)

a : = 10; b : = 5

//а равно 10, б пяти

если a > 5 и a < b

//а больше 5, но а не меньше чем б, значит ничего не изменяем

то a : = a - 5

все

а осталась прежней, 10