Куплен 1м 2 утеплителя за 100 рублей. Вычислить сколько будет стоить прямоугольник вырезанный из этого квадрата. Размеры вырезанного прямоугольника: длина – 50 см ширина 10 см.
PascalABC.NET Программа сработает некорректно если слова будут разделены несколькими пробелами или строка будет заканчиваться пробелом const c = ' '; var s : string; k,p : integer; begin writeln ('Введите строку'); readln (s); k := -1; p := 1; if (s <> '') and (s <> ' ') then begin while p <> 0 do begin k := k +1; p := PosEx (c,s,p+1); end; writeln (k+1,' word') end else writeln ('error string'); end.
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
Программа сработает некорректно если слова будут разделены несколькими пробелами или строка будет заканчиваться пробелом
const c = ' ';
var
s : string;
k,p : integer;
begin
writeln ('Введите строку');
readln (s);
k := -1;
p := 1;
if (s <> '') and (s <> ' ') then
begin
while p <> 0 do
begin
k := k +1;
p := PosEx (c,s,p+1);
end;
writeln (k+1,' word')
end
else
writeln ('error string');
end.