1) Действия с информацией - это действия , связанные с хранением, обработкой и передачей информации 2) ЗРИТЕЛЬНАЯ - глаза ЗВУКОВАЯ - уши ВКУСОВАЯ - рот, язык ОБОНЯТЕЛЬНАЯ - нос ОСЯЗАТЕЛЬНАЯ - кожа 3) а) Линейка нужна для измерения расстояний. б) Транспортир нужен для измерения углов. в) Термометр нужен для измерения температуры. г) Барометр нужен для измерения давления. д) Компас нужен для определения направления сторон света (севера, юга, запада и востока) е) Телескоп нужен для изучения звездного нета ж) Микроскоп нужен для изучения клеток, микроорганизмов з) Шумомер нужен для измерения силы звуков (громкости) и) Гигрометр нужен для измерения влажности воздуха
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var m:=ReadInteger('Количество элементов в массиве А (m):'); var n:=ReadInteger('Количество элементов в массиве B (n):'); var k:=ReadInteger('Позиция вставки k (1<k<m):'); if (k>1) and (k<m) then begin var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println; var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println; Writeln('Результат вставки'); (a[:k]+b+a[k:]).Println end else Writeln('Вы нарушили условие 1<k<m') end.
Тестовое решение Количество элементов в массиве А (m): 10 Количество элементов в массиве B (n): 6 Позиция вставки k (1<k<m): 4 Массив A 68 64 30 75 36 15 50 39 92 26 Массив B 56 68 97 30 95 63 Результат вставки 68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26
2) ЗРИТЕЛЬНАЯ - глаза
ЗВУКОВАЯ - уши
ВКУСОВАЯ - рот, язык
ОБОНЯТЕЛЬНАЯ - нос
ОСЯЗАТЕЛЬНАЯ - кожа
3) а) Линейка нужна для измерения расстояний.
б) Транспортир нужен для измерения углов.
в) Термометр нужен для измерения температуры.
г) Барометр нужен для измерения давления.
д) Компас нужен для определения направления сторон света (севера, юга, запада и востока)
е) Телескоп нужен для изучения звездного нета
ж) Микроскоп нужен для изучения клеток, микроорганизмов
з) Шумомер нужен для измерения силы звуков (громкости)
и) Гигрометр нужен для измерения влажности воздуха
begin
var m:=ReadInteger('Количество элементов в массиве А (m):');
var n:=ReadInteger('Количество элементов в массиве B (n):');
var k:=ReadInteger('Позиция вставки k (1<k<m):');
if (k>1) and (k<m) then begin
var a:=ArrRandom(m,1,99); Writeln('Массив A'); a.Println;
var b:=ArrRandom(n,1,99); Writeln('Массив B'); b.Println;
Writeln('Результат вставки'); (a[:k]+b+a[k:]).Println
end
else Writeln('Вы нарушили условие 1<k<m')
end.
Тестовое решение
Количество элементов в массиве А (m): 10
Количество элементов в массиве B (n): 6
Позиция вставки k (1<k<m): 4
Массив A
68 64 30 75 36 15 50 39 92 26
Массив B
56 68 97 30 95 63
Результат вставки
68 64 30 75 56 68 97 30 95 63 36 15 50 39 92 26