Линия (Line) – при перемещении курсора в любом направлении Контрольная панель информирует о ее текущей длине в виде.
Дуга (Аrc) – при перемещении курсора от начальной точки VCB вначале информирует о текущей длине хорды. Для назначения нужной длины вводим свое значение. Можно также назначить количество сегментов, образующих дугу вводом значения.
Прямоугольник (Rectangle) – при перемещении курсора от начального угла к диагонально расположенному конечному VCB информирует о длинах сторон прямоугольника.
Окружность (Circle) и Многоугольник (Polygon) – при перемещении курсора от назначенного центра окружности VCB информирует о текущей величине радиуса. Можно переназначить эту величину непосредственно после завершения построения .
Перемещение (Move) – при перемещении элемента инструментом VCB работает с величинами смещения точно так же, как и в инструменте Линия (Line). Но, кроме того, очень удобно применять VCB для управления созданием копий, которые появляются при перемещении с нажатой клавишей Ctrl.
Вращение (Rotate) – в принципе, здесь все приемы работы с VCB аналогичны инструменту Перемещение (Move), только они применяются к величинам углов поворота (Angle).
Масштаб (Scale) – здесь VCB показывает текущие (и, естественно, можно назначить свои) коэффициенты масштабирования, а также подсказывает по каким осям это одновременно происходит.
Тянуть/Толкать (Push/Pull) и Контур (Offset) – поскольку здесь также речь идет о дистанции перемещения, VCBработает с этими величинами, как и в инструменте Линия (Line).
Лупа (Zoom) – здесь VCB показывает текущую (и, естественно, можно переназначить свою) величину угла обзора (поля зрения) камеры в градусах.
Для попарно простых чисел a,b,c верно, что: - если число делится на a и b, оно делится на a×b; - если число не превышает N, то m×a×b, где m=1,2,3... также не превышает N; - если при этом число не делится на с, то a×b также не делится на с.
Следовательно, количество чисел, не превышающих N равно N div (a×b), где div - операция деления нацело. Из этого количества нужно вычесть количество чисел, делящихся на c, т.е. N div (a×b×c)
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('N='); var (a,b,c):=ReadInteger3('Введите через пробел a,b,c:'); Writeln(n div (a*b) - n div (a*b*c)) end.
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество судей:'); Assert(n.InRange(3,5),'Неверное количество судей, разрешено 3,4 или 5'); var a:=ReadArrReal('Введите оценки:',n); if n>3 then Writeln(' ',a.OrderBy(t->t).ToArray[1:n-1].Average:0:4) else begin var m:=a.Average; var b:=a.Select(t->(t,Abs(t-m))).OrderByDescending(t->t[1]).ToArray; if Abs(b[0][1]-b[1][1])<1e-5 then Writeln(' ',m:0:4) else Writeln(' ',b.Skip(1).Select(t->t[0]).Average:0:4) end end.
2. А в школах часто все еще учат писать так:
var a,d:array[1..5] of real; n,i,imax,imin,j:integer; s,avg:real;
begin Write('Количество судей: '); Read(n); if (n<3) or (n>5) then Writeln('Неверное количество судей, разрешено 3,4 или 5') else begin Write('Введите оценки: '); for i:=1 to n do Read(a[i]); if n>3 then begin imax:=1; imin:=1; for i:=2 to n do if a[i]<a[imin] then imin:=i else if a[i]>a[imax] then imax:=i; s:=0; a[imax]:=0; a[imin]:=0; for i:=1 to n do s:=s+a[i]; avg:=s/(n-2); Writeln(' ',avg:0:4) end else begin s:=0; for i:=1 to n do s:=s+a[i]; avg:=s/n; for i:=1 to n do d[i]:=Abs(a[i]-avg); for i:=1 to n-1 do for j:=i+1 to n do if d[i]<d[j] then begin s:=d[i]; d[i]:=d[j]; d[j]:=s end; if Abs(d[1]-d[2])<1e-5 then Writeln(' ',avg:0:4) else begin s:=0; for i:=1 to n do if a[i]<>a[1] then s:=s+a[i]; avg:=s/(n-1); Writeln(' ',avg:0:4) end end end end.
Линия (Line) – при перемещении курсора в любом направлении Контрольная панель информирует о ее текущей длине в виде.
Дуга (Аrc) – при перемещении курсора от начальной точки VCB вначале информирует о текущей длине хорды. Для назначения нужной длины вводим свое значение. Можно также назначить количество сегментов, образующих дугу вводом значения.
Прямоугольник (Rectangle) – при перемещении курсора от начального угла к диагонально расположенному конечному VCB информирует о длинах сторон прямоугольника.
Окружность (Circle) и Многоугольник (Polygon) – при перемещении курсора от назначенного центра окружности VCB информирует о текущей величине радиуса. Можно переназначить эту величину непосредственно после завершения построения .
Перемещение (Move) – при перемещении элемента инструментом VCB работает с величинами смещения точно так же, как и в инструменте Линия (Line). Но, кроме того, очень удобно применять VCB для управления созданием копий, которые появляются при перемещении с нажатой клавишей Ctrl.
Вращение (Rotate) – в принципе, здесь все приемы работы с VCB аналогичны инструменту Перемещение (Move), только они применяются к величинам углов поворота (Angle).
Масштаб (Scale) – здесь VCB показывает текущие (и, естественно, можно назначить свои) коэффициенты масштабирования, а также подсказывает по каким осям это одновременно происходит.
Тянуть/Толкать (Push/Pull) и Контур (Offset) – поскольку здесь также речь идет о дистанции перемещения, VCBработает с этими величинами, как и в инструменте Линия (Line).
Лупа (Zoom) – здесь VCB показывает текущую (и, естественно, можно переназначить свою) величину угла обзора (поля зрения) камеры в градусах.
Объяснение:
Надеюсь поставь лучший ответ и сердечко