Все 4-буквенные слова, составленные из букв В, А, Г, О, Н, записаны в алфавитном порядке. Вот начало списка: 1. 2. АААВ 3. АААГ 4. АААН 5. АААО 6. ААВА … Укажите, на каком месте от начала списка стоит слово НОГА.
Стандартный графический редактор Paint удобно использовать для создания простых рисунков и редактирования изображений в среде Windows и включать их как OLE-объекты в другие приложения, например WordPad.
Основные возможности редактора Paint. Редактор Paint имеет возможность загрузки, редактирования и записи в файл полноэкранных изображений. Поскольку редактор поддерживает технологию OLE, то полученные рисунки можно скопировать в буфер, оформить их в виде объекта и встраивать в тексты редактора WordPad и иных Windows-приложений. При этом редактор Paint может быть как сервером, так и клиентом при динамическом обмене данными между различными приложениями.
Одна из ценных возможностей - отмена результатов последних операций. Она реализуется командой Отменить в позиции Правка Главного меню. Другая весьма ценная команда - возможность детального (с наблюдением каждого пикселя) просмотра рисунков. Для этого используется команда Масштаб в позиции Вид Главного меню. Команда Просмотреть рисунок позволяет наблюдать полноэкранное изображение.
Const n = 5; var a: array [1..n] of integer; i,l,m,k: integer; begin for i := 1 to n do read(a[i]); l := 1; while l < n do begin while (a[l] mod 2 = 0) and (l < n) do l := l + 1; if l < n then begin k := l; m := a[l]; for i := l+1 to n do if a[i] mod 2 <> 0 then if a[i] > m then begin m := a[i]; k := i end; a[k] := a[l]; a[l] := m; l := l + 1 end; end; for i := 1 to n do write(a[i],' ') end.
Графический редактор Paint
Стандартный графический редактор Paint удобно использовать для создания простых рисунков и редактирования изображений в среде Windows и включать их как OLE-объекты в другие приложения, например WordPad.
Основные возможности редактора Paint. Редактор Paint имеет возможность загрузки, редактирования и записи в файл полноэкранных изображений. Поскольку редактор поддерживает технологию OLE, то полученные рисунки можно скопировать в буфер, оформить их в виде объекта и встраивать в тексты редактора WordPad и иных Windows-приложений. При этом редактор Paint может быть как сервером, так и клиентом при динамическом обмене данными между различными приложениями.
Одна из ценных возможностей - отмена результатов последних операций. Она реализуется командой Отменить в позиции Правка Главного меню. Другая весьма ценная команда - возможность детального (с наблюдением каждого пикселя) просмотра рисунков. Для этого используется команда Масштаб в позиции Вид Главного меню. Команда Просмотреть рисунок позволяет наблюдать полноэкранное изображение.
Объяснение:
var
a: array [1..n] of integer;
i,l,m,k: integer;
begin
for i := 1 to n do read(a[i]);
l := 1;
while l < n do
begin
while (a[l] mod 2 = 0) and (l < n) do l := l + 1;
if l < n then
begin
k := l;
m := a[l];
for i := l+1 to n do
if a[i] mod 2 <> 0 then
if a[i] > m then
begin
m := a[i];
k := i
end;
a[k] := a[l];
a[l] := m;
l := l + 1
end;
end;
for i := 1 to n do write(a[i],' ')
end.