Вопрос 1. назначение инструмента extrude. autodesk 123d design вопрос 2. назначение инструмента snap. autodesk 123d design вопрос 3. назначение инструмента loft+shell вопрос 4. назначение инструменты split face и split solid. autodesk 123d design вопрос 5. назначение инструмента sveep. autodesk 123d design вопрос 6. назначение инструмента pattern. autodesk 123d design вопрос 7. назначение инструмента revolve. autodesk 123d design вопрос 8. порядок действий при подготовке к печати на 3d принтере «альфа» (принтер в кабинете робототехнике

Program pr3; var a : array [1..100, 1..100] of integer ; {резервирование памяти под массивы} b : array [1..100, 1..100] of integer ; c : array [1..100, 1..100] of integer ; m, n, i,j: integer ; {переменные i,j вводятся как индексы массива} begin randomize; writeln ('введите размерность матриц m и n (числа < 100)'); readln (m, n); for i: =1 to m do for j: =1 to n do begin a[i,j]: =random (20)-10; {ввод элемента матрицы} b[i,j]: =random (20)-10; {ввод элемента матрицы} end; writeln ('итоговая матрица a: '); for i: =1 to m do begin for j: =1 to n do write (a[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку} end; writeln; writeln ('итоговая матрица b: '); for i: =1 to m do begin for j: =1 to n do write (b[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку} end; writeln; for i: =1 to m do {цикл по всем строкам матрицы} for j: =1 to n do {цикл по всем столбцам матрицы} if (a[i,j] < b[i,j]) then c[i,j] : = b[i,j] else c[i,j] : = a[i,j]; writeln ('итоговая матрица c: '); for i: =1 to m do begin for j: =1 to n do write (c[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку} end; end.

Этой программе все равно, сколько слов во фразе и какой они длины. а заодно, ей все равно, сколько между словами // pascalabc.net 3.1, сборка 1230 от 27.04.2016 procedure times(a: array of string; pic: string; var n: integer); begin   n: =a.where(s-> s=pic).count end; begin   var s: =readlnstring('> ').towords;   var k: integer;   var w: ='значит'; times(s,w,k); println(k,'-',w);   w: ='вот'; times(s,w,k); println(k,'-',w);   w: ='автомобиль'; times(s,w,k); println(k,'-',w); end. тестовое решение > вот значит какое дело было ехал по дороге автомобиль и вот стоит человек и думает а что значит слово автомобиль а слово автомобиль это от греческого аутос (сам) и латинского мобилис (подвижный) вот такое это слово 2 - значит 3 - вот 3 - автомобиль