Составить программу по нахождению среднего арифметического всех чисел от 10 до 45. в паскале

Uses crt; var i,average,count: integer; begin for i: =10 to 45 do begin average: =average+i; inc(count); end; writeln(average/count); end.

Как бы написал я: program n_1; var x1, x2, y1, y2, x, y: integer; begin writeln ('введите значения координат(x1,x2,y1,y2,x,y): '); readln (x1, x2, y1, y2, x, y); if (x> x1) and (x< x2) and (y> y2) and (y< y1) then writeln('точка с координатами (',x,'; ',y,') пренадлежит прямоугольнику')       else writeln('точка с координатами (',x,'; ',y,') не пренадлежит прямоугольнику'); end. булевой переменной не нужно, она же 1 раз используется. далее, ошибка была   (x< 2) нужно было ну или если только без ошибки, то вот: program n_1; var x1, x2, y1, y2, x, y: integer; a: boolean; begin writeln ('введите значения координат'); readln (x1, x2, y1, y2, x, y); a: = (x> x1)and(x< x2)and(y> y2)and(y< y1); writeln ('точка с координатами принадлежит прямоугольнику ', a); end.

прибавь 1                  - 1

прибавь 1                  - 2

прибавь 1                  - 3

умножь на 2          - 6

умножь на 2          - 12

умножь на 2          - 24

прибавь 1                  - 25

умножь на 2          - 50

 

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

решение:

 

пусть будет две противоположные команды -1, /2.

 

возьмём число 50

 

50-1=49

50/2=25

25< 49

значит последнее действие - умножь на 2

 

25 не делиться на 2, значит предпоследнее действие  - +1

25-1=24

 

24/2< 24-1

 

предпредпоследнее действие - умножь на 2

 

и так