Вариант 5 1) Алгоритм вычисления функции F(n) задан следующими соотношениями:
F(n) =2-n при n<3
F(n) = 3n +5+ F(n-2), если n чётно,
F(n) =n+ 2-F(n-6), если я нечётно.
Чему равно значение функции F(61)?
2) Алгоритм вычисления функции F(n) задан следующими соотношениями:
F(n) =-n при п<0
F(n) = 2n +1+ F(n-3), если я чётно,
F(n) = 4 + 2-F(n 4), если n нечётно.
Чему равно значение функции F(33)?
3) Алгоритм вычисления функции F(n) задан следующими соотношениями:
F(n) = 5-п при п<5
F(n) = 4* (n – 5)*F(n-5), если п делится на 3,
F(n) = 3n + 2*F(n-1)+ F(n-2), если и не делится на 3.
Чему равно значение функции F(20)?

1)var a: integer; begin writeln('введите число'); readln(a); if (a mod 2=0) then write('чётное ') else write('нечётное '); if (a div 100> =1)then write('трёхзначное число') else if (a div 10> =1)then write('двузначное число') else writeln('однозначное число'); end.2)var a,b,c: real; begin writeln('введите 1 число'); readln(a); writeln('введите 2 число'); readln(b); writeln('введите 3 число'); readln(c); if (a< b)and (b< c) then  begin a: =2*a; b: =2*b; c: =2*c; end else  begin a: =(-1)*a; b: =(-1)*b; c: =(-1)*c; end; writeln(a); writeln(b); writeln(c); end. 3)var a,b,c: integer; begin writeln('введите 1 число'); readln(a); writeln('введите 2 число'); readln(b); writeln('введите 3 число'); readln(c); if a=b then writeln('3') else if b=c then writeln('1') else writeln('2'); end.