Программист сережа написал программу по проверке сбойных секторов на диске. тестируя программу, сережа обнаружил, что проверено 25952 сектора. ровно через 2 секунды на счетчике опять появилось число, которое читается
одинаково в обоих направлениях и является самым близким к 25952. сколько секторов проверяется за секунду?

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

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

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

Type   point=record       x,y: real       end; procedure getpoint(c: char; var a: point);   var       x,y: real; begin   write('введите координаты x и y точки ',c,': ');   read(x,y);   a.x: =x; a.y: =y end; function distpoint(a,b: point): real; begin   distpoint: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)) end; var   a,b,m: point;   d,p,ab,ma,mb: real; begin   getpoint('a',a); getpoint('b',b); getpoint('m',m);   ab: =distpoint(a,b); ma: =distpoint(m,a); mb: =distpoint(m,b);   if ma> =ab+mb then d: =mb   else       if mb> =ma+ab then d: =ma       else begin           p: =(ma+mb+ab)/2;           d: =2*sqrt(p*(p-ab)*(p-ma)*(p-mb))/ab       end;   writeln('минимальное расстояние составляет ',d) end. тестовое решение: введите координаты x и y точки a: -3 -5 введите координаты x и y точки b: 2 5 введите координаты x и y точки m: -3 4 минимальное расстояние составляет 4.02492235949962

// pascalabc.net 3.3, сборка 1549 от 17.10.2017 // внимание! если программа не работает, обновите версию! begin   var a: =readseqintegerwhile(x-> x< =100).toarray;   writeln('количество четных чисел равно ',a.where(x-> x.iseven).count);   a.transform(x-> x.isodd? x*x: x); a.println end. пример 35 24 38 83 110 количество четных чисел равно 2 1225 24 38 6889 begin   writeln('s=',readseqintegerwhile(x-> x> =0).select(x-> x mod 10).sum) end. пример 16 24 19 21 45 0 23 -21 s=28 begin   var n: =readinteger('n=');   var st: =new stack < integer> ;   while n> 0 do begin       st.push(n mod 10);       n: =n div 10       end;   var a: =st.toarray;   a.println(',');   writeln('сумма цифр: ',a.sum);   writeln('сумма нечетных цифр: ',a.where(x-> x.isodd).sum);   writeln('сумма старшего и младшего разрядов: ',a.first+a.last); end. пример n= 53214212 5,3,2,1,4,2,1,2 сумма цифр: 20 сумма нечетных цифр: 10 сумма старшего и младшего разрядов: 7