cd ~
mkdir folder1
cd folder1
touch file1
touch file2
touch file3
touch file4
tar cvf archive.tar *
mkdir ../folder2
cd ../folder2
touch new_file
cp ../folder1/archive.tar .
tar rvf archive.tar new_file
tar vf archive.tar --delete file3
tar vf archive.tar --list > list1
tar vf ../folder1/archive.tar --list > list2
diff list1 list2
#Разъединение выполнить не получится, потому что все файлы пустые, но если засовывать не пустые, то
split -b 10M archive.tar "part" # вместо 10M нужный размер
cat part* > joined_archive.tar
tar vf archive.tar --list
tar vf joined_archive.tar --list
tar czvf final_archive.tar archive.tar ../folder1/archive.tar joined_archive.tar
не указано, как именно завершать ввод, поэтому сделал завершение словом exit
Кодprogram task31784852; var number, maxLength, maxNumber: integer; inputIsTrue: boolean; inputString, maxLengthString: string; begin inputIsTrue := false; maxLength := 0; Writeln('Напишите exit, чтобы завершить ввод и получить результат'); while inputIsTrue = false do begin Readln(inputString); if Length(inputString) = 0 then continue; if inputString = 'exit' then break; number := number + 1; if Length(inputString) > maxLength then begin maxLength := Length(inputString); maxLengthString := inputString; maxNumber := number; end; end; Writeln('Самая длинная строка с номером ', number, ': ', maxLengthString); end.ПроверкаНапишите exit, чтобы завершить ввод и получить результат
a
aa
aaa
lsd
pwpefowpeofkpwef
123462048201180301313031
exit
Самая длинная строка с номером 9:
