5 Специальная машина, на которой продольной распиловкой бревен получают пиломатериалы.
6 Древесный материал, который рекомендуется распиливать ножовкой под углом 15°.
7 Какая ножовка по размеру полотна чаще всего применяется для пиления досок?
8 Тонкий слой древесины, срезанный с короткого бревна.
9 Прорезь в древесине шириной чуть больше толщины полотна пилы.
10 Ручная сверильная машина с зубчатой передачей для выполнения отверстий в древесине и
других материалах.
11 Часть дерева, из которой получают главным образом деловую древесину.
12 Какой гвоздь будет лучше держаться в древесине, забитый вдоль волокон или поперек?
13 Вид сверла для получения небольших отверстий.
14
Предмет, который необходимо подкладывать под заготовку при сверлении дрелью или
коловоротом для получения ровных краев отверстия на выходе сверла и для предохранения
крышки верстака от повреждения.
15 Линия, предварительно размеченная по линейке.
16 Что может привести древесину к гниению?
17 Слой древесины, который снимается при обработке заготовки.
18
Инструмент, которым размечают толщину детали или наносят разметочные линии от кромки
доски.
19 Рубанок с большой длиной колодки для чистового строгания больших плоскостей.
20 Природное или синтетическое вещество, применяемое для соединения деталей из древесины
var a,n,i,j,s:integer;
begin
writeln('Введите количество цифр в числе');
readln(n);
for i:=1 to n do begin
writeln('Введите ',i,' цифру из ',n);
readln(a);
for j:=1 to n-i do a:=a*10;
s:=s+a;
end;
writeln('Натуральное число: ',s);
end.
Тестовое решение
Введите количество цифр в числе
5
Введите 1 цифру из 5
9
Введите 2 цифру из 5
2
Введите 3 цифру из 5
7
Введите 4 цифру из 5
3
Введите 5 цифру из 5
1
Натуральное число: 92731
Решение №2 Если очень надо использовать массив (хотя на мой взгляд совсем не нужно)
//PascalABC.NET (версия 3.1, сборка 1198)
var a,n,i,j,s:integer;
mas:array[1..10]of integer;
begin
writeln('Введите количество цифр в числе');
readln(n);
for i:=1 to n do begin
writeln('Введите ',i,' цифру из ',n);
readln(mas[i]);
a:=mas[i];
for j:=1 to n-i do a:=a*10;
s:=s+a;
end;
writeln('Натуральное число: ',s);
end.
Тестовое решение
Введите количество цифр в числе
5
Введите 1 цифру из 5
5
Введите 2 цифру из 5
4
Введите 3 цифру из 5
3
Введите 4 цифру из 5
2
Введите 5 цифру из 5
2
Натуральное число: 54322
m & 1 - это битовая конъюнкция. Результатом будет 1, если m нечетное, и 0, если m - четное (то есть, содержит или не содержит соответствующий разряд)
Выражение вида T ? X : Y, где T - логическое высказывание, принимает значение X, если T истинно, и Y, если T ложно.
Соответственно, i = (m & 1) == 1 ? m : m + 1 означает, что
если m нечетное, то i = m
если четное, i = m+1 (то есть, первое нечетное число после m)
i += 2 означает, что цикл идет с шагом, соответственно, рассматриваются только нечетные числа.