Протабулировать функцию y=sin(2x) на промежутке [-1;1], с шагом h=0,1. Рассчитать среднее арифметическое значений функций больших, чем 0,3 и меньших, чем 0,5. Задание необходимо выполнить в одной из доступных версий программы Pascal (PASCAL ABC.NET, PASCAL ABC, Turbo Pascal; допускается использование онлайн-компилятора).

Задание 1:
Узнаем какие числа у B2, C2, D2.
B2=C1-2=6-2=4
C2=(B1+D1)-2=(3+5)/2=4
D2=D1+3=5+3=8
Получились числа 4,4,8
Теперь смотрим на круг.
Там 2 одинаковых маленьких и 2 больших куска
Два одинаковых маленьких это по 4.
2 больших получается по 8
А2=А1+2
Мы знаем что А2=8. Из этого узнаем, чему равно А1:
8=А1+2
А1=6
ответ 6

Задача 2
Узнаем чему равны А2, В2, D2
А2=5-2+1=4
В2=5-1=4
D2=4*4=16
Получается 4,4,16
Смотрим на круг. Там два маленьких это 4,4
Один большой это 16
Остаётся половинка большого это будет 8
D1-A1=5-3=2 не подходит
В1+1=4+1=5 не подходит
D1+A1=5+3=8 подходит
С1*D1=2*5=10 не подходит
Подходит вариант 3

var i,n,m,sum,pr,k,j:longint;

begin

 sum:=0; pr:=1;

 write('m: '); readln(m);

 write('n: '); readln(n);

 i:=2;

 repeat

   if m mod i = 0 then

     begin

       sum:=sum+i;

       m:=m div i;

       i:=2;

     end

       else inc(i);

 until m=1;

 writeln('Sum_M:', sum);

 for i:=2 to n div 2 do

   if n mod i = 0 then

     begin

       k:=2;

       for j:=2 to i div 2 do

         if i mod j = 0 then inc(k);

       if (k>2)and(i mod 3 = 0 ) then

         pr:=pr*i;

     end;  

 writeln('Proizv_N:', pr);

 if sum>pr then writeln('Da, sum prost del M > proizv sost del N')

   else

     writeln('Net, sum prost del M < proizv sost del N');

end.