Программирование на паскаль Последовательность действительных рандомных чисел оканчивается нулем. Найти количество членов этой последовательности.

• наименование – это название трехмерного объекта (эскиза, операции, вс плоскости, детали, сборки и пр.). Наименование, которое система присваивает автоматически (например, Эскиз:1, Операция вращения:2), пользователь может изменить, обозначив принадлежность или назначение трехмерного элемента в модели. Наименование отображается в дереве построения модели возле значка каждой операции или элемента;

• видимость – это свойство управляет отображением трехмерного объекта в документе (скрытый или видимый). Переключение с невидимого на видимый режим осуществляется с команд контекстного меню дерева построения: Показать и Скрыть соответственно;

• состояние – любой объект может быть включен или исключен из расчета. При исключенном из расчета элементе модель перестраивается так, как будто этого элемента вообще нет. Для управления состоянием также применяются команды контекстного меню дерева построения: Включить в расчет и Исключить из расчета;

• цвет – задает цвет объекта в модели. Это свойство недоступно только для значка начала системы координат, каждая стрелка которого имеет свой предустановленный цвет (ось X – красный, ось Y – зеленый, ось Z – синий). Цвет трехмерного объекта выбирается из раскрывающегося списка Цвет на вкладке Свойства панели свойств при создании каждого объекта. Если представленные в списке цвета вас не устраивают (в нем всего 40 цветов), вы можете воспользоваться стандартным диалоговым окном выбора цвета операционной системы Windows, в котором указать произвольный цвет. При задании цвета объекта вы также можете установить флажок Использовать цвет детали, в результате чего объект будет иметь тот же цвет, который задан для всей детали.

Type
  Frac = record
    P: integer;
    Q: 1..32767
  end;

function gcd(a: integer; b: integer): integer;
{Нахождение НОД}
var
  i: integer;
begin
  while b <> 0 do
  begin
    a := a mod b;
    i := b; b := a; a := i
  end;
  result := a
end;

function RedFrac(a: Frac): Frac;
{Сокращение дроби}
var
  igcd: integer;
  r: Frac;
begin
  igcd := gcd(a.P, a.Q);
  r.P := a.P div igcd;
  r.Q := a.Q div igcd;
  RedFrac := r
end;

function Add(a, b: Frac): Frac;
{Сложение дробей}
var
  r: Frac;
begin
  r.P := a.P * b.Q + b.P * a.Q;
  r.Q := a.Q * b.Q;
  Add := RedFrac(r)
end;

function Mult(a, b: Frac): Frac;
{Умножение дробей}
var
  r: Frac;
begin
  r.P := a.P * b.P;
  r.Q := a.Q * b.Q;
  Mult := RedFrac(r)
end;

var
  m, n, k: Frac;

begin
  m.P := 4; m.Q := 15; {4/15}
  n.P := 9; n.Q := 25; {9/25}
  k := Add(m, n);
  Writeln(k.P, '/', k.Q);
  k := Mult(m, n);
  Writeln(k.P, '/', k.Q);
end.

Результат выполнения программы:
47/75
12/125