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

На приведенной схеме дороги, связывающие города А, Б, В, Г, Д, Е, Ж, З, И, К, Л, М. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных путей, ведущих из города А в город М и не проходящих через город Е?


На приведенной схеме дороги, связывающие города А, Б, В, Г, Д, Е, Ж, З, И, К, Л, М. По каждой дороге

Показать ответ
Ответ:
Умник0666
Умник0666
28.12.2021 19:10

Lazarus — открытая среда разработки программного обеспечения на языке Object Pascal для компилятора Free Pascal. Основная цель — предоставление кроссплатформенных и свободных средств разработки в Delphi-подобном окружении (по аналогии с Harbour для Clipper).

Позволяет переносить Delphi-программы с графическим интерфейсом в различные операционные системы: Linux, FreeBSD, Mac OS X, Microsoft Windows, Android[1].

В отличие от MSE — фокус на преобразование проектов Delphi. Библиотека визуальных компонентов — близкая к VCL Lazarus Component Library (LCL), практически полностью поддерживает виджеты Win32, GTK1, GTK2, Carbon[en], Qt, fpGUI, Cocoa, частично — виджеты WinCE[2]. Реализован основной набор элементов управления, редактор форм и инспектор объектов максимально приближены к Delphi; однако полной совместимости с Delphi нет. Интерфейс отладки реализован через GDB. Редактор — с системой подсказок, гипертекстовой навигацией по исходным текстам, автозавершением, автоформатированием (на механизмах Jedi Code Format), поддержкой рефакторинга. Интерфейс и редактор полностью юникодные (UTF-8).

Для компиляции поддерживаются два стиля ассемблера: Intel и AT&T. Также со стороны компилятора поддерживаются различные паскаль-стили: Object Pascal, Turbo Pascal, Mac Pascal, Delphi. Реализован собственный формат управления пакетами. Обеспечивается автосборка среды (под новую библиотеку виджетов). Поддерживаемые для компиляции операционные системы: Linux, Microsoft Windows (Win32, Win64), Mac OS X, FreeBSD, WinCE, OS/2.

Распространяется на условиях GNU General Public License, а значительная часть библиотек, в том числе LCL — на условиях модифицированной GNU Lesser General Public License. Альтернативная сборки среды — CodeTyphon, включает ряд дополнительных пакетов и компонентов, в частности, OpenGL-движок GLScene.

Среди программ, написанных с использованием Lazarus — двухпанельные файловые менеджеры Total Commander и Double Commander, аудиоредактор easyMP3Gain, аналог GNOME для Windows Greengnome, архиватор PeaZip, панель управления дистрибутива Ubuntu, САПР ZCad.

Объяснение:

0,0(0 оценок)
Ответ:
НеУмныйКот
НеУмныйКот
18.06.2022 06:31

1) program Array16;

var

i:integer; // счетчик в цикле

N:integer;

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

begin

writeln('Введите N (N<10)');

readln(N); // ввод размера массива

for i:=1 to N do

begin

write('a[',i,']=');

readln(A[i]); // ручной ввод значений массива

end;

writeln('Результат');

for i:=1 to N do

begin

// вычисление и вывод элементов в указанном порядке

write(' ',a[(i div 2+1)*((i) mod 2)+ n*((i+1)mod 2)-((i div 2)-1)*((i+1) mod 2)]);

end;

end.

2) Var A:array[1..100] of integer;

i,n:byte;

Begin

write('Введите n<=100: ');readln(n);

For i:=1 to n do

Begin

A[i]:=random(31);

write(A[i]:3);

End;

writeln;

For i:=1 to n div 2 do

write(A[i]:3,A[n-i+1]:3);

if n mod 2 <>0 then write(A[n div 2+1]:3);

End.

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