В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Qweryuibcdd
Qweryuibcdd
06.11.2020 23:59 •  Информатика

5 Специальная машина, на которой продольной распиловкой бревен получают пиломатериалы.
6 Древесный материал, который рекомендуется распиливать ножовкой под углом 15°.
7 Какая ножовка по размеру полотна чаще всего применяется для пиления досок?
8 Тонкий слой древесины, срезанный с короткого бревна.
9 Прорезь в древесине шириной чуть больше толщины полотна пилы.
10 Ручная сверильная машина с зубчатой передачей для выполнения отверстий в древесине и
других материалах.

11 Часть дерева, из которой получают главным образом деловую древесину.
12 Какой гвоздь будет лучше держаться в древесине, забитый вдоль волокон или поперек?
13 Вид сверла для получения небольших отверстий.
14
Предмет, который необходимо подкладывать под заготовку при сверлении дрелью или
коловоротом для получения ровных краев отверстия на выходе сверла и для предохранения
крышки верстака от повреждения.
15 Линия, предварительно размеченная по линейке.
16 Что может привести древесину к гниению?
17 Слой древесины, который снимается при обработке заготовки.
18
Инструмент, которым размечают толщину детали или наносят разметочные линии от кромки
доски.
19 Рубанок с большой длиной колодки для чистового строгания больших плоскостей.
20 Природное или синтетическое вещество, применяемое для соединения деталей из древесины

Показать ответ
Ответ:
Mouse125
Mouse125
24.04.2020 10:36
Решение №1 (без массивов)

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
0,0(0 оценок)
Ответ:
tupayadaria
tupayadaria
26.10.2021 20:38
Судя по всему, здесь в цикле складываются квадраты всех нечетных чисел от m до n включительно.

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 означает, что цикл идет с шагом, соответственно, рассматриваются только нечетные числа.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота