Даны целые числа a и b (a < b вывести все целые числа от a до b включительно; при этом число a должно выводиться 1 раз, число a + 1 должно выводиться 2 раза и т. д.нужно сделать в vba inputboxчто может быть не так? private sub commandbutton1_click()dim a, b, i, i2 as varianta = val(textbox1.text)b = val(textbox2.text) for i = 0 to b - a for i2 = 0 to i textbox3.text = (a + i)end sub

var a: array [1..100,1..100] of longint ;i, j ,d, n,m,k: longint;beginread(n,m);
for i:=1 to n do for j:= 1 to m doread(a[i,j]);
j:=0;
        for i:=1 to n do        begin        j:=j+1;        d:=0;                 while d<2 do                 if a[i,j]<0 then begin k:=k+1; d:= 3; end;        end;

if k>(m/2) then        begin        for i:= 1 to n do                 for j:= 1 to m do                 if a[i,j]<0 then a[i,j]:=a[i,j]*10 ;
        end
else
begin        for i:=1 to n do         for j:= 1 to m do         if a[i,j]<0 then a[i,j]:=a[i,j]*a[i,j] ;end;
for i:=1 to n dobegin for j:= 1 to m dowrite(a[i,j],' ');end;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