Предлагаемые действия действия для создания папок общего доступа:
А) Внесите название файла в поле Имя.
B) В меню Файл выберите команду создать папку.
С) В списке Поместить папку в...
выберите расположение
D) Из списка Содержимое папки выберите тип папки
общего доступа
Действия для размещения файла в папку общего доступа:
А) Щелкните правой кнопкой мыши - Выберите
команду Вставить
В) Обозначьте файл на своем компьютере - Выберите
команду Копировать.
C) Нажмите значок Мой компьютер - Выберите знак Сеть
D) Откройте нужную папку общего доступа
действия для внесении изменения в файлы общего до-
ступа:
А) Внесите изменения в документ - Сохранить файл,
В) Откройте нужную папку общего доступа.
C) Нажмите на значок Мой компьютер -- Выберите знак Сеть
D) Обозначьте файл для изменения - Выберите команду
Открыть
Действия для скачивания файла из папки общего до-
ступа:
А) Щелкните правой кнопкой мыши - Выберите команду
Вставить,
В) Откройте папку общего доступа
C) Внесите изменения в файл.
D) Нажмите на значок Мой компьютер - Выберите знак Сеть.
E) Обозначьте файл на своем компьютере - Выберите команду
Копировать
F) Обозначьте файл из папки общего доступа - Выберите
команду Копировать
долго сижу, и не могу понять как это делать
auto = false;
var
soldier: array[1..5000]of integer;
n, i, j, k, max, t, d, imax, a, c: integer;
begin
if auto then begin
n := random(5000);
for i := 1 to n do
soldier[i] := random(5000);
end
else begin
readln(n);
for i := 1 to n do
read(soldier[i]);
end;
{сортирововчка}
for i := 1 to n - 1 do
begin
imax := i;
for j := i + 1 to n do
if soldier[j] > soldier[imax] then
imax := j;
max := soldier[i];
soldier[i] := soldier[imax];
soldier[imax] := max;
end;
max := 0;
for i := 1 to n - 1 do
for j := i + 1 to n do
begin
a := soldier[j];
d := soldier[j] - soldier[i];
c := 2;
for k := j + 1 to n do
if soldier[k] = a + d then begin
a := soldier[k];
c := c + 1;
end;
if c > max then max := c;
end;
writeln(max);
end.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
tBook=record
author:string[30];
naim:string[50];
pages:integer;
godizd:integer
end;
begin
var f:file of tBook;
Rewrite(f,'books.dat');
Writeln('Ввод данных по книгам');
var s1,s2:string;
var i1,i2:integer;
var book:tBook;
repeat
s1:=ReadlnString('Автор или * для окончания ввода:');
if s1<>'*' then begin
s2:=ReadlnString('Название книги:');
i1:=ReadlnInteger('Количество страниц:');
i2:=ReadlnInteger('Год издания:');
(book.author,book.naim,book.pages,book.godizd):=(s1,s2,i1,i2);
Write(f,book)
end
until s1='*';
Writeln('*** Ввод завершен ***');
f.Close
end.
Тестовое решение
Ввод данных по книгам
Автор или * для окончания ввода: Жюль Верн
Название книги: 80 тысяч километров под водой
Количество страниц: 573
Год издания: 1951
Автор или * для окончания ввода: Сергей Лукьяненко
Название книги: Дозор
Количество страниц: 934
Год издания: 2004
Автор или * для окончания ввода: Жюль Верн
Название книги: Властелин мира
Количество страниц: 104
Год издания: 2011
Автор или * для окончания ввода: *
*** Ввод завершен ***
2. Программа для выборки
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
tBook=record
author:string[30];
naim:string[50];
pages:integer;
godizd:integer
end;
begin
var f:file of tBook;
Reset(f,'books.dat');
var s:=ReadlnString('Автор книги:');
var y:=Readinteger('Год издания, не ранее:');
var k:=0;
var book:tBook;
while not f.Eof do begin
Read(f,book);
if (book.author=s) and (book.godizd>=y) then begin
Writeln(book);
Inc(k)
end;
end;
if k=0 then Writeln('Таких книг не найдено');
f.Close
end.
Тестовое решение
Автор книги: Жюль Верн
Год издания, не ранее: 2005
(Жюль Верн,Властелин мира,104,2011)