Информатика 7 класс, ! 1. пользователь находился в каталоге расписание. сначала он поднялся на один уровень вверх, затем спустился на один уро- вень вниз, потом ещё раз спустился на один уровень вниз. в результате он оказался в ка- талоге с: . укажите полный путь каталога, с которым пользователь начинал работу. 1) с: \учёба\2013\расписание 2) с: \учёба\расписание 3) с: \расписание 4) с: 2. в некотором каталоге хранился файл вьюга.doc, имевший полное имя d: \2013\зима\вьюга.doc. в этом каталоге создали подкаталог январь и файл вьюга.doc переместили в созданный подкаталог. укажите полное имя этого файла после пере- мещения. 1) d: \январь\вьюга.doc 2) d: \2013\зима\вьюга.doc 3) d: \2013\январь\вьюга.doc 4) d: \2013\зима\январь\вьюга.doc

В первом ответ-2
Во втором-4

1)

program mas1;

var

 arr: array[1..10] of integer;

begin

 randomize;

 for var i := 1 to 10 do

 begin

   arr[i] := random(21);

   write(arr[i], ' ');

 end;

end.

2)

program mas2;

var

 arr: array[1..10] of integer;

begin

 randomize;

 for var i := 1 to 10 do

 begin

   arr[i] := random(20 - 3 + 1) + 3;

   write(arr[i], ' ');

 end;

end.

3)

program mas3;

var

 arr: array[1..10] of integer;

begin

 arr[1] := 2;

 write(arr[1], ' ');

 for var i := 2 to 10 do

 begin

   arr[i] := arr[i - 1] + 2;

   write(arr[i], ' ');

 end;

end.

Объяснение:

1)

program mas1;  // Название программы

var

 arr: array[1..10] of integer;  // Целочисленный массив, состоящий из 10 элементов

begin  // Начало программы

 randomize;  // Процедура для инициализации датчика случайных чисел

 for var i := 1 to 10 do  // Идём от 1 до 10 индексов

 begin  // Начало цикла

   arr[i] := random(21);  // Заполняем массив случайными числами в диапазоне [0, 21)

   write(arr[i], ' '); // Выводим через пробел

 end;  // Конец цикла

end. // Конец программы

2)

program mas2;  // Название программы

var

 arr: array[1..10] of integer;  // Целочисленный массив, состоящий из 10 элементов

begin  // Начало программы

 randomize;  // Процедура для инициализации датчика случайных чисел

 for var i := 1 to 10 do  // Идём от 1 до 10 индексов

 begin  // Начало цикла

   arr[i] := random(20 - 3 + 1) + 3;  // Заполняем массив случайными числами в диапазоне [3, 20] по формуле:

Значение = (b - a + 1) + a

   write(arr[i], ' '); // Выводим через пробел

 end;  // Конец цикла

end. // Конец программы

3)

program mas3;  // Название программы

var

 arr: array[1..10] of integer;  // Целочисленный массив, состоящий из 10 элементов

begin  // Начало программы

 arr[1] := 2;  // Первый элемент массива = 2

 write(arr[1], ' ');  // Выводим его и ставим пробел

 for var i := 2 to 10 do  // Идём от 2 до 10 индексов

 begin  // Начало цикла

   arr[i] := arr[i - 1] + 2;  // Прибавляем к предыдущему элементу массива двойку

   write(arr[i], ' ');  // Выводим через пробел

 end;  // Конец цикла

end. // Конец программы

1 задание) ответ: 1323141;
Двигаемся в обратном порядке 2324142 (идём с конца) ей противоположные 1323141
2 задание) ответ: 2949;
мы должны получить 11 и 13 причем минимально . можем только так 9+2 и 9+4 . значит 2949
3 задание)   ответ: 3;
чтобы добраться до 21 нам нужно выполнить 1 команду 6 раз и 3 раза вторую , нас спрашивают про вторую пишем ответ 3
4 задание) ответ: 1;
нам нужно число которое делится на 5 то есть 4 отпадает , и также нам нужно чтобы модуль разности был не более 2 и во втором и в третьем модуль разности больше 2 , остается 1.
5 задание)  ответ: 1112221;
Я всегда начинаю с обратного 
57-56-28-14-7-6-5-4  собираем с конца 1112221