Склавиатуры одной строкой вводят имя и фамилию. составьте программу, которая выводит сначала фамилию, а потом имя.

Uses crt; var s,s1,s2: string; i,k: integer; begin readln(s); k: =pos(' ',s)-1; for i: =1 to k do s1: =s1+s[i]; k: =k+2; for i: =k to length(s) do s2: =s2+s[i]; writeln(s2,' ',s1); end.

//pascal abc.net 3.1 сборка 1219 const   n=5; var   ar: array[1..n] of integer;   i,c,r,ri: integer; begin write('введите число: '); readln(c); writeln('array: '); for i: =1 to n do begin   readln(ar[i]);   if (ar[i]> c) and (ar[i]< 0) then   begin     ri: =i;     r: =ar[i];   end; end; ar[ri]: =sqr(ar[ri]); ar[n-1]: =ar[ri]; writeln('final array: '); for i: =1 to n do write(ar[i]: 4); end. пример ввода: введите число: -6 array: -1 2 -3 3 5 пример вывода: final array:   -1   2   9   9   5

Объясняю своими словами: 1) архивирование может производится с целью уменьшения размера изначальных файлов, для последующего компактного их хранения, а так же, если файлов много, к примеру, документы, то их передачу между пользователями в сети. 2) программы-архиваторы  предназначены  для создания архивных файлов с целью уменьшения их объема. объем данных – это важный параметр для хранения информации, ее переноса на внешние носители или пересылки по сети3) каждая из программ-архиваторов позволяет выбрать различный алгоритм сжатия файлов для эффективного уменьшения их размера. позволяет открыть различные виды архивов, полученные из сети. позволяет установить пароль на архив, в целях защиты данных. позволяет разбить архив на части, если сжатый файл превышает размер носителя. позволяет добавлять  в уже созданный архив другие файлы и осуществлять поиск внутри архива.4) переходим в папку "мои документы". правой кнопкой мыши вызываем контекстное меню. выбираем пункт создать - архив (rar).  помещаем в него три графических файла. правой кнопкой мыши на архиве вызываем контекстное меню и выбираем извлечь в "название архива"\