//PascalABC.NET версия 3.4.2.1991 от 03.03.19
//Если программа не запускается, то обновите версию
const
handsfree = true;
nmax = 100;
random_min = -50;
random_max = 50;
var
a: array[1..nmax] of real;
i, n, count: integer;
procedure QuickSort(first, last: Integer);{ Быстрая сортировка массива A[] , использует массив как глобальную переменную}
var
i, j: integer;
x, y: real;
begin
i := first;
j := last;
x := a[(first + last) div 2];
repeat
while (A[i] < x) do inc(i);
while (x < A[j]) do dec(j);
if (i <= j) then
begin
y := A[i]; a[i] := a[j]; a[j] := y;
inc(i); dec(j);
end;
until (i > j);
if (first < j) then QuickSort(first, j);
if (i < last) then QuickSort(i, last);
end;
begin
{ввод массива}
n := nmax;
if handsfree then begin
n := random(nmax - 5) + 5;
for i := 1 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
write('n = ');
readln(n);
for i := 1 to n do
readln(a[i]);
end;
writeln();
QuickSort(1, n);
{вывод массива}
writeln('Вывод массива[', n, ']:');
for i := 1 to n do
write(a[i], ' ');
writeln();
{подсчет разных}
count := 1; {первый элемент точно разный}
for i := 2 to n do
if a[i] <> a[i - 1] then
count := count + 1;
writeln('Разных элементов = ', count);
end.
//PascalABC.NET версия 3.4.2.1991 от 03.03.19
//Если программа не запускается, то обновите версию
const
handsfree = true;
nmax = 100;
random_min = -50;
random_max = 50;
var
a: array[1..nmax] of real;
i, n, count: integer;
procedure QuickSort(first, last: Integer);{ Быстрая сортировка массива A[] , использует массив как глобальную переменную}
var
i, j: integer;
x, y: real;
begin
i := first;
j := last;
x := a[(first + last) div 2];
repeat
while (A[i] < x) do inc(i);
while (x < A[j]) do dec(j);
if (i <= j) then
begin
y := A[i]; a[i] := a[j]; a[j] := y;
inc(i); dec(j);
end;
until (i > j);
if (first < j) then QuickSort(first, j);
if (i < last) then QuickSort(i, last);
end;
begin
{ввод массива}
n := nmax;
if handsfree then begin
n := random(nmax - 5) + 5;
for i := 1 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
write('n = ');
readln(n);
for i := 1 to n do
readln(a[i]);
end;
writeln();
QuickSort(1, n);
{вывод массива}
writeln('Вывод массива[', n, ']:');
for i := 1 to n do
write(a[i], ' ');
writeln();
{подсчет разных}
count := 1; {первый элемент точно разный}
for i := 2 to n do
if a[i] <> a[i - 1] then
count := count + 1;
writeln('Разных элементов = ', count);
end.
ответ: Да!
Вот ссылка: https://pedsovet.su/word/6131_kak_raspechatat_neskolko_dokumentov_v_papke
Там максимально подробное объяснение с картинками.
Объяснение:
Практически все сталкивались с ситуацией, когда нужно распечатать несколько документов сразу, не открывая их. Например, по электронной почте вышестоящая организация прислала распоряжения, инструкции, примеры, шаблоны — все их нужно распечатать. И если открывать каждый файл и в каждом файле нажимать печать, то уходит много времени.
Если вы точно уверены, что все файлы нужно печатать, то это можно сделать прямо из папки, не открывая каждый файл.
Обратите внимание, что распечатать одновременно можно только файлы одного типа — только .pdf, только .docx, только .jpg и т.д.
Шаг 1
Открываем папку, в которой хранятся файлы, которые нужно распечатать одновременно (или предварительно копируем файлы в такую папку).
Далее выделяем нужные файлы. Если файлы расположены друг за другом то можно выделить так: щелкнуть мышью на первый файл в списке и, нажать клавишу SHIFT и, удерживая клавишу, щелкнуть по последнему файлу в списке. Таким образом мы выделим все файлы от какого-то до какого-то.
Если нужно выделить файлы вразброс или из ранее выделенного блока файлов удалить пару, то нужно нажать на клавиатуре клавишу CTRL и, удерживая ее, мышкой щелкать по тем файлам, которые нужно выделить. Так будет происходить выделение поштучно.
Если что-то выделили лишнего, то можно просто еще раз щелкнуть по этому файлу для снятия выделения.
Если случайно скопировали все файлы (их стало по 2), то отменить копирование можно клавиатурной комбинацией CTRL + Z (отмена последнего действия) и подтвердить удаление лишних файлов.
Шаг 2
После того как все файлы одного типа, которые нужно распечатать, выделены, нужно нажать правую кнопку мыши на выделенном — Печать.
Так же в точности можно распечатать и файлы другого типа.