Имеет место дополнительное разделение предприятий и организаций …
тип ответа: одиночный выбор
вариант 1. по характеру производства, по численности, по типу производства, по связям и по типу производственного цикла
вариант 2. на территориальное, отраслевое, иерархическое и организационное
вариант 3. по степени децентрализации, по уровню дивизиональности, по типу иерархии и по типу используемой логистики

1. Закончите предложение: «Алгоритмом называется …»
г) конечная последовательность шагов в решении задачи, приводящая от исходных данных к требуемому результату
2. Что можно считать алгоритмом?
в) кулинарный рецепт
3. Закончите предложение: «Блок-схема – форма записи алгоритмов, при которой для обозначения различных шагов алгоритма используются ….»
в) геометрические фигуры
4. Закончите предложение: «Геометрическая фигура параллелограмм
используется в блок-схемах для обозначения ….
г) выполнения действия
5. У какого из известных Вам исполнителей следующая СКИ: вверх, вниз, вправо, влево, закрасить?
а) РОБОТ
6. В следующем списке 12 2,3 0 5 -5 98,0 целых величин:
в) 4
7. Каждая команда алгоритма должна определять однозначное действие исполнителя. Это свойство алгоритма называется…
б) точность
8. Укажите формальных исполнителей:
г) автомат на конвейере наполняет бутылки лимонадом
9. Для многократного выполнения одинаковых действий в алгоритме нужно использовать
б) цикл

10. После выполнения фрагмента алгоритма вида:
S:=0
i:=1
пока i<4
нц
i:=i+1
S:=S+1
кц
значение переменной s равно…. б) 3
11. Переменная х получила значение, равное -6. Какое значение получит переменная у после выполнения ветвления:
если а меньше или равно 3
то у:=а*а
иначе у:= 2а-3
все
в) 36

Var
  r, r2, x, y: real;
  n: integer;

begin
  Write('Введите величину радиуса окружности: '); Readln(r);
  r2 := sqr(r); n := 0;
  {1. Точки в первой четверти без учета попавших на оси }
  x := 1;
  while x <= r do
  begin
    y := 1;
    while y <= r do
    begin
      if sqr(x) + sqr(y) <= r2 then n := n + 1;
      y := y + 1
    end;
    x := x + 1
  end;
  n := 4 * n; { учли точки в остальных трех четвертях }
  n := n + 1; { учли точку в начале координат }
  n := n + 4 * trunc(r); { учли точки, находящиеся на координатных осях }
  Writeln('Число точек, принадлежащих кругу, равно ', n);
end.

Тестовое решение:
Введите величину радиуса окружности: 3
Число точек, принадлежащих кругу, равно 29