Бюллетень КонсультантПлюс. Пошаговая инструкция. 1 С сайта consultant.ru скачать PDF-версию своего выпуска бюллетеня 2 С графического редактора сохранить первую страницу PDF-документа в виде графического PNG-файла. Если редактор не установлен, то: ◦ Скачать с сайта https://www.gimp.org/downloads/ последнюю версию редактора GIMP (например, gimp-2.10.18-setup-2.exe) ◦ запустить скачанный файл, ◦ выбрать режим установки «Установить для всех пользователей», ◦ если будет запрос, разрешить программе вносить изменения на компьютере ◦ выбрать язык – «русский» ◦ нажать кнопку «Установить» ◦ дождаться завершения процесса распаковки и установки ◦ нажать кнопку «Завершить» если редактор уже установлен, то ◦ запустить редактор («Пуск» / «Программы» / «GIMP 2.10.18») ◦ открыть сохраненный PDF-документ («Файл» / «Открыть» / найти сохраненный документ на диске / нажать кнопку «Открыть» / в окне «Импорт из PDF» отметить только первую страницу / нажать кнопку «Импортировать») ◦ сохранить открытый документ в формате PNG («Файл» / «Экспортировать как…» / «Выберите тип файла (По расширению)» / найти и выделить строку «Изображение PNG» / нажать кнопу «Экспортировать» / в окне «Экспортировать как PNG» нажать кнопку «Экспорт»). Сохраненный файл имеет имя, совпадающее с именем PDF-документа, но с расширением PNG. 3 Создать новый документ MS Word. 4 Изменить параметры страницы документа: на вкладке «Поля» установить значения полей слева, справа, сверху, снизу равными 0 (если появится сообщение о выходе полей за область печати, нажать кнопку «Пропустить»), на вкладке «Источник бумаги» установить параметры «От края до верхнего колонтитула» и «От края до нижнего колонтитула» равными 0. 5 Установить значение абзацного отступа первого абзаца в 0 (свойство абзаца «Первая строка» должно иметь значение (нет)). 6 Зайти в режим редактирования верхнего колонтитула («Вставка» / «Верхний колонтитул» / «Изменить верхний колонтитул») 7 На панели инструментов «Работа с колонтитулом» нажать кнопку «Рисунок», выбрать сохраненное PNG-изображение, нажать кнопку «Вставить». 8 Изменить свойства рисунка (правая кнопка мыши / «Размер и положение» / на вкладке «Размер» установить «ширина, абсолютная, 21 см» / на вкладке «Обтекание текстом» значение «за текстом» / на вкладке «Положение» установить «по горизонтали, выравнивание, по левому краю, относительно страницы», «по вертикали, выравнивание, по верхнему краю, относительно страницы» / нажать кнопку «ОК»). Рисунок должен принять размеры страницы и занять всю площадь страницы. 9 Уменьшить размер шрифта в абзаце колонтитула до 1 пункта 10 На панели инструментов «Работа с колонтитулами. Конструктор» нажать кнопку «Закрыть окно колонтитулов» 11 Вставить в документ таблицу. Количество строк и столбцов таблицы должно быть таким, чтобы все текстовые и графические фрагменты документа, имеющие собственное форматирование, визуально разместились в отдельных ячейках таблицы. При необходимости строки и столбцы можно разбивать на ячейки, объединять уже существующие ячейки, менять их ширину и высоту и т.д. Добавлять в таблицу ячейки удобно с инструмента «Нарисовать таблицу» на панели инструментов «Работа с таблицами. Конструктор». Удалять границы между ячейками, тем самым объединяя ячейки, удобно с инструмента «Ластик» (там же). 12 Переходя от ячейки к ячейке ввести необходимый текст, расположить и отформатировать его в соответствии с видимым образцом. Для форматирования текста использовать диалоговое окно «Шрифт» (шрифт, начертание, размер, цвет, видоизменение, масштаб, интервал и пр.), для позиционирования текста по горизонтали и вертикали – диалоговое окно «Абзац» (выравнивание, отступы слева/справа, интервал перед/после/междустрочный и пр.). Необходимые графические элементы «вырезаются» из сохраненного PNG-файла в графическом редакторе и вставляются в ячейки. "Консультант Плюс" - законодательство РФ:.. www.consultant.ru 13 После размещения всех текстовых и графических элементов в ячейках таблицы необходимо установить фон ячеек в соответствии с образцом и границы ячеек таблицы сделать невидимыми (значение «нет границы» параметра «Границы»). 14 Зайти в режим редактирования верхнего колонтитула, выделить изображение и удалить его (нажать кнопку «Delete» на клавиатуре) 15 Сохранить документ.
Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 begin var s1:=ReadReal('Площадь квадрата'); var s2:=ReadReal('Площадь круга'); if pi*s1<2*s2 then Writeln('Квадрат умещается в круге') else Writeln('Квадрат не умещается в круге') end.
Тестовое решение: Площадь квадрата 24.6 Площадь круга 28.4 Квадрат не умещается в круге
Var ar:array[1..n] of integer; ar2:array[1..n] of integer; i,k:integer;
function prost(a:integer):boolean; var i:integer; b:boolean; begin b:=true; for i:=2 to a div 2 do if a mod i=0 then begin; b:=false; break; end; if a=1 then b:=false; prost:=b; end;
begin; randomize; k:=0; for i:=1 to n do begin; ar[i]:=random(101); write(ar[i]:4); end; writeln; for i:=1 to n do if prost(ar[i]) then begin; inc(k); ar2[k]:=ar[i]; write(ar2[k]:4); end; end.
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.
Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.