{ Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен. }
var sq : array[0..999] of array[0..9] of boolean; co : array[0..999] of integer; ar : array[1..10003] of 0..9; i,j: integer; x: integer; t : boolean; begin for i := 0 to 999 do begin for j := 0 to 9 do sq[i][j] := false; co[i] := 0; end; for i := 1 to 3 do ar[i] := 0; i := 3; t := true; {write('000');} while t do begin i := i + 1; x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1]; if co[x] >= 10 then t := false else begin j := 1; while sq[x][j] do j := (j + 1) mod 10; ar[i] := j; sq[x][j] := true; co[x] := co[x] + 1; {write(j)} end; end; {writeln;} writeln('Length: ',i - 1);
{просто чтобы убедиться} for i := 0 to 999 do for j := 0 to 9 do sq[i][j] := false;
t := true; j := 0; i := 1; while (i <= 10000) and t do begin x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2]; if sq[x][ar[i+3]] then t := false else begin sq[x][ar[i+3]] := true; j := j + 1; end; i := i + 1 end; if t and (j = 10000) then write('Confirmed') end.
Microsoft Word - самый популярный текстовый процессор в современном мире. Выпускается корпорацией Microsoft в составе пакета Microsoft Office. Самая первая версия этой программы была написана Ричардом Броди и использовалась с 1983 года компанией IBM. На сегодняшний день, она свою эволюцию и существенно отличается от первоначальной версии.
Microsoft Word достаточно прост и удобен в использовании. Даже неопытный пользователь легко и быстро ознакомится с возможностями этого редактора.
Основные преимущества:
работает со всеми форматами;
расширенная панель инструментов;
возможность проверки орфографии текста;
возможность перевода текста;
возможность добавления шаблонов;
расширенная работа с изображениями;
совместная работа с другими пользователями.
Основные недостатки:
большая и громоздкая панель инструментов;
не поддерживает видеофайлы.
Кроме того, в Microsoft Word Вы можете использовать разнообразие инструментов:
таблица (создать, редактировать, удалить таблицы или данные в них; производить вычисления при математических формул; построение графиков на базе данных таблицы);
добавление диаграмм и их редактирование;
формат (представлены варианты форматирования текста: размер, шрифт, абзац, список, колонки);
Возможность автосохранения текста каждые 10 секунд сохраняет документ. В случае необходимости, документ быстро восстанавливается с учетом последних внесенных изменений.
При функции изменения масштаба – Ваш текст становиться более удобным для чтения и редактирования. Вывод на печать производиться на выбор: документ будет напечатан полностью, только конкретные страницы или диапазоном страниц. Просмотреть размещение текста на странице доступно в функции «Предварительный просмотр».
Еще одно качественно отличительной чертой этой программы является ее размер. Microsoft Word очень быстро загружается, занимает мало места на компьютере, а работает очень быстро.
Microsoft Word объединил в себе удобный интерфейс, простору и доступность использования панели инструментов, а скорость работы этого текстового редактора постоянно увеличивается. Компания Microsoft поддерживает свою репутацию, постоянно улучшая качество выпускаемых продуктов. На данный момент, доступна версия Microsoft Office Word 2016.
Microsoft Word - отличный инструмент для работы с текстом разной сложности: от заметки до сложной таблицы с формулами, диаграммами и графиками.
Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен.
}
var
sq : array[0..999] of array[0..9] of boolean;
co : array[0..999] of integer;
ar : array[1..10003] of 0..9;
i,j: integer;
x: integer;
t : boolean;
begin
for i := 0 to 999 do
begin
for j := 0 to 9 do
sq[i][j] := false;
co[i] := 0;
end;
for i := 1 to 3 do
ar[i] := 0;
i := 3;
t := true;
{write('000');}
while t do
begin
i := i + 1;
x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1];
if co[x] >= 10 then t := false
else
begin
j := 1;
while sq[x][j] do
j := (j + 1) mod 10;
ar[i] := j;
sq[x][j] := true;
co[x] := co[x] + 1;
{write(j)}
end;
end;
{writeln;}
writeln('Length: ',i - 1);
{просто чтобы убедиться}
for i := 0 to 999 do
for j := 0 to 9 do
sq[i][j] := false;
t := true;
j := 0;
i := 1;
while (i <= 10000) and t do
begin
x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2];
if sq[x][ar[i+3]] then t := false
else
begin
sq[x][ar[i+3]] := true;
j := j + 1;
end;
i := i + 1
end;
if t and (j = 10000) then
write('Confirmed')
end.
Пойдет?
Microsoft Word - самый популярный текстовый процессор в современном мире. Выпускается корпорацией Microsoft в составе пакета Microsoft Office. Самая первая версия этой программы была написана Ричардом Броди и использовалась с 1983 года компанией IBM. На сегодняшний день, она свою эволюцию и существенно отличается от первоначальной версии.
Microsoft Word достаточно прост и удобен в использовании. Даже неопытный пользователь легко и быстро ознакомится с возможностями этого редактора.
Основные преимущества:
работает со всеми форматами;
расширенная панель инструментов;
возможность проверки орфографии текста;
возможность перевода текста;
возможность добавления шаблонов;
расширенная работа с изображениями;
совместная работа с другими пользователями.
Основные недостатки:
большая и громоздкая панель инструментов;
не поддерживает видеофайлы.
Кроме того, в Microsoft Word Вы можете использовать разнообразие инструментов:
таблица (создать, редактировать, удалить таблицы или данные в них; производить вычисления при математических формул; построение графиков на базе данных таблицы);
добавление диаграмм и их редактирование;
формат (представлены варианты форматирования текста: размер, шрифт, абзац, список, колонки);
цветовые схемы выделения текста, таблицы, символа;
вставка текста, символов;
вставка изображений (в т.ч. WordArt), которые можно отредактировать, обрезать/добавить, изменить цвет или размер;
сортировка текста по алфавиту (А-Я и наоборот);
добавление нумерации страниц;
добавление списка (нумерованного, ненумерованного, маркированного, многоуровневого);
запись макросов и их использование;
возможность защитить документ;
добавление заметок, гиперссылок.
Возможность автосохранения текста каждые 10 секунд сохраняет документ. В случае необходимости, документ быстро восстанавливается с учетом последних внесенных изменений.
При функции изменения масштаба – Ваш текст становиться более удобным для чтения и редактирования. Вывод на печать производиться на выбор: документ будет напечатан полностью, только конкретные страницы или диапазоном страниц. Просмотреть размещение текста на странице доступно в функции «Предварительный просмотр».
Еще одно качественно отличительной чертой этой программы является ее размер. Microsoft Word очень быстро загружается, занимает мало места на компьютере, а работает очень быстро.
Microsoft Word объединил в себе удобный интерфейс, простору и доступность использования панели инструментов, а скорость работы этого текстового редактора постоянно увеличивается. Компания Microsoft поддерживает свою репутацию, постоянно улучшая качество выпускаемых продуктов. На данный момент, доступна версия Microsoft Office Word 2016.
Microsoft Word - отличный инструмент для работы с текстом разной сложности: от заметки до сложной таблицы с формулами, диаграммами и графиками.