Объяснение:
1.
var
a:array[1..1000] of integer;
i, n:integer;
count:integer;
begin
writeln('Input n = ');
readln(n);
for i:=1 to n do begin
writeln('Input a[', i, '] = ');
readln(a[i]);
end;
count:=0;
i:=1;
while (i<=n) do begin
if (((a[i] mod 3) = 0) and ((a[i] - (a[i] div 10)*10) = 2)) then count:=count + 1;
i:=i+1;
end;
writeln(count);
readln;
end.
2.
var
a:array[1..1000] of integer;
i, n:integer;
count:integer;
begin
writeln('Input n = ');
readln(n);
for i:=1 to n do begin
writeln('Input a[', i, '] = ');
readln(a[i]);
end;
count:=0;
i:=1;
repeat
if (((a[i] mod 3) = 0) and ((a[i] - (a[i] div 10)*10) = 2)) then count:=count + 1;
i:=i+1;
until (i > n);
writeln(count);
readln;
end.
Var
size: integer;
counter: integer;
mas: array of integer;
Begin
Write('Введите количество чисел в последовательности: ');
Readln(size);
if (size > 0) then
begin
Writeln();
SetLength(mas, size);
for var i := 0 to size - 1 do
begin
Write('Введите ', i + 1, ' число: ');
Readln(mas[i]);
if ((mas[i] mod 3 = 0) and (mas[i] mod 10 = 2)) then
counter := counter + 1;
end;
Writeln();
Writeln('ответ: ', counter);
end
else
Writeln('Количество чисел должно быть больше нуля!');
End.
по сравнению со многими популярными пакетами данный обладает рядом особенностей, позиционируемых её авторами как преимущества.
основная особенность — почти полное отсутствие окон предварительных настроек. все характеристики во время или сразу после окончания действия инструмента с клавиатуры в поле value control box (поле контроля параметров), которое находится в правом нижнем углу рабочей области, справа от надписи measurements (панель измерений).
ещё одна ключевая особенность — это инструмент push/pull («тяни/толкай»), позволяющий любую плоскость «выдвинуть» в сторону, создав по мере её передвижения новые боковые стенки. утверждается, что этот инструмент запатентован[3]. двигать плоскость можно вдоль заранее заданной кривой, для этого есть специальный инструмент follow me («ведение»).
отсутствие поддержки карт смещения[en] (. displacement maps) объясняется нацеленностью продукта на непрофессиональную целевую аудиторию.
также можно отметить следующие возможности:
поддержка плагинов для экспорта, визуализации, создания эффектов (вращения, движения, взаимодействия созданных объектов между собой и пр.)
поддержка создания макросов на языке ruby и вызова их из меню. макросами можно автоматизировать выполнение повторяющихся действий. доступна функция загрузки и использования многочисленных готовых макросов, предоставленных другими пользователями.
поддержка создания «компонентов» — элементов модели, которые могут быть созданы, затем использованы много раз, а потом отредактированы — и изменения, сделанные в компоненте, отразятся во всех местах, где он использован.
библиотека компонентов (моделей), материалов и стилей рабочей области, которые можно пополнять своими элементами или загружать готовые из сети интернет.
инструмент для просмотра модели в разрезе и возможность добавлять к модели выноски с обозначением видимых размеров в стиле чертежей
возможность работать со слоями
возможность создания динамических объектов (например: открытие дверцы шкафа по клику указателя)
возможность построения сечений объектов
возможность работы со сценами (сцена включает в себя положение камеры и режим отрисовки), и анимировать переходы от сцены к сцене
поддержка создания моделей реальных предметов и зданий