Поиск - это последовательность действий, от определения предмета поиска, до получения ответа на имеющиеся вопросы с использованием всех данных, Сбор - Накопление какой-либо информации, Формализация - представление какой-либо содержательной области (рассуждений, доказательств, процедур классификации, поиска информации научных теорий) в виде формальной системы или исчисления, Фильтрация - вывод нужных пользователю данных, в результате созданного им запроса. Сортировка - перераспределение информации для хранения под общим названием или объединённых в одну тему, Архивация - сжатие (упаковка) данных в архив с специальной программы "архиватора", Защита данных - комплекс мероприятий технического, организационного и организационно-технического характера, направленных на защиту сведений, относящихся к определенному или определяемому на основании такой информации физическому лицу (субъекту персональных данных), Транспортировка данных - это передача их между источником и приемником информации Преобразование данных - изменение одного вида информации на другой или формат (изменение формата) Хранение - временное хранилище информации, Обработка данных - любое действие (операция) или совокупность действий (операций), совершаемых с использованием средств автоматизации или без использования таких средств с персональными данными, включая сбор, запись, систематизацию, накопление, хранение, уточнение (обновление, изменение), извлечение, использование, передачу (распространение, предоставление, доступ), обезличивание, блокирование, удаление, уничтожение персональных данных. Обработка информации - любое преобразование информации из одного вида в другой, производимое по строгим формальным правилам.
// PascalABC.Net 3.0, сборка 1076 var s,ss:string; i,n,p:integer; begin Write('Введите строку: '); Readln(s); n:=Length(s); p:=Pos(',',s); if p in [1..n-1] then begin ss:=Copy(s,p+1,n-p); n:=Length(ss); p:=Pos(',',ss); if p=0 then Writeln(ss) else Writeln(Copy(ss,1,p-1)) end else Writeln('*** Нечего выводить ***') end.
var
s,ss:string;
i,n,p:integer;
begin
Write('Введите строку: '); Readln(s);
n:=Length(s); p:=Pos(',',s);
if p in [1..n-1] then begin
ss:=Copy(s,p+1,n-p);
n:=Length(ss); p:=Pos(',',ss);
if p=0 then Writeln(ss)
else Writeln(Copy(ss,1,p-1))
end
else Writeln('*** Нечего выводить ***')
end.
Тестовые решения:
Введите строку: 01234,45679,1011213,14151617
45679
Введите строку: 01234,45679101121314151617
45679101121314151617
Введите строку: 01234,
*** Нечего выводить ***