Даю 27 б
Задача №1: составить программу для вычисления значения функции по одной из формул
Программа:
CLS
REM Значение функции
INPUT «Введите a, b, k»; a, b, k
IF a<=-1 THEN y=k+a:goto 1 ELSE goto 2
2 IF (a>-1) AND (a<1) THEN y=SIN(a)-b:goto 1 ELSE y=ABS(1-a):goto 1
1 PRINT “y=”; y
END

Задача №2: составить программу для нахождения наименьшего из двух заданных неравных чисел отличных от нуля.
Программа:
CLS
REM Определение наименьшего числа
INPUT «Введите a, b»; a, b
IF a 1 END

program prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end. 

93₁₀ =1011101₂

93 : 2 = 46 (1)

46 : 2 = 23 (0)

23 : 2 = 11 (1)

11 : 2 = 5 (1)

5 : 2 = 2 (1)

2 : 2 = 1 (0)

1 : 2 = 0 (1)

124₁₀ =1111100₂

124 : 2 = 62 (0)

62 : 2 = 31 (0)

31 : 2 = 15 (1)

15 : 2 = 7 (1)

7 : 2 = 3 (1)

3 : 2 = 1 (1)

1 : 2 = 0 (1)

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

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.