На рисунке представлена схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, 3, И, К, Л, М. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных путей из города А в город М, проходящих через город Ж, но не проходящих через город Г?
Архитектору компьютер необходим для составления точных чертежей и их проекции в трёхмерном пространстве, врачу для просмотра тех кто записывался на приём, для учителя электронный журнал, бизнесмену необходим интернет для просмотра последних новостей касаемо его направления бизнеса, бухгалтеру необходимо делать документы (расчёты, ведомости и.д.п) в Excel, композитор может выложить свои работы в интернет, секретарю необходимо смотреть график встреч с его боссом, писатель может хранить свои работы в компьютере, художник может выставить объявления о продаже своих рисунков в интернете, модельер выставляет свои услуги!
program mas;
var
massive: array[0..1000] of integer;
n, i: integer;
begin
massive[0] := 2;
write('Введите количество элементов массива: ');
read(n);
for i := 0 to n - 1 do
begin
write(massive[i], ' ');
massive[i + 1] := massive[i] + 2;
end;
end.
Объяснение:
Максимальный размер массива - 1001 элемент.
program mas; // Название программы
var
massive: array[0..1000] of integer; // Целочисленный массив
n, i: integer; // Переменные, отвечающие за количество чисел в массиве и счётчик.
begin // Начало программы
massive[0] := 2; // Первое значение массива = 2
write('Введите количество элементов массива: '); // Вывод сообщения в консоль
read(n); // Считываем значение переменной n с клавиатуры
for i := 0 to n - 1 do // Идём от 0 до n - 1 индекса (n - 1, т. к. идём с нулевого индекса)
begin // Начало цикла
write(massive[i], ' '); // Вывод значения массива с индексом i
massive[i + 1] := massive[i] + 2; // Следующий элемент массива = текущий элемент массива + 2
end; // Конец цикла
end. // Конец программы