Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вво- дятся с клавиатуры; a> =200);

Var        a,i: integer;       s: integer;         sr: real;       b: integer; begin      writeln('введите а: ');       readln(a);       b: =200;       for i: =a to 200 do   begin      s: =b+i;     end;       sr: =s/a;       writeln('среднее значение: ',sr); end.

1. utfa.fps

2.какую программу?

3. x(n)=5n²-4n-1

xn-нечётное тогда, когда n-чётное

x(0)=-1

x(2)=11

x(4)=63

x(6)=155

x(8)=287

x(10)=459

x(12)=671

x(14)=923

x(16)=1215

x(18)=1547

x(20)=1919

самое близкое число, к числу 25952, которое читается одинаково слева направо и справа налево это число: 26062.

26062 - 25952 = 110 секторов проверила программа за 2 секунды

110 : 2 = 55 секторов проверяет программа за секунду