Сопределите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 36: var i, k: integer; function f(x: integer): integer; begin if x < 2 then f: = 1 else f: = f(x-1) + 2*f(x-2); end; begin i : = 28; readln(k); while (i > 0) and (f(i) > k) do i: =i-1; writeln(i); end.

для начала смотрим что выходит при к= 36, выходит 5

анализируем функцию f. это линейная функция наподобии фибоначи, значит ответом будет некий один отрезок из к

потом немножко дорабатываем программу и смотрим на результат

var

    i, k, counter: integer;

function f(x: integer): integer;

begin

    if x < 2 then

        f : = 1

    else f : = f(x - 1) + 2 * f(x - 2);

end;

begin

    for k : = 0 to 100 do  

    begin

        i : = 28;

        //         readln(k);

        while (i > 0) and (f(i) > k) do  

            i : = i - 1;

        if i = 5 then begin

            counter : = counter + 1;

            writeln(counter, ') k = ', k);

        end;

    end

end.

вывод

1) k = 21

2) k = 22

3) k = 23

4) k = 24

5) k = 25

6) k = 26

7) k = 27

8) k = 28

9) k = 29

10) k = 30

11) k = 31

12) k = 32

13) k = 33

14) k = 34

15) k = 35

16) k = 36

17) k = 37

18) k = 38

19) k = 39

20) k = 40

21) k = 41

22) k = 42

ответ 22

var

  a, s: real;

  i: integer;

begin

  write('a = '); readln(a);

  if a < 1 then

  begin

      writeln('1 > ', a);

      exit;

  end;

  if a < 1.5 then

      writeln('1.5 > ', a)

  else

      writeln('таких чисел нет');

  readln;

end.