Самый очевидный ответ Power Point(не совсем бесплатно, но да здравствует пиратство). Фильмы-movie maker (самый простой), Sony Vegas и т д
Программа для случая, когда в строке только "0", "1" и пробелы (т.е. проверки корректности ввода нет):
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,k,max:integer;
begin
if combobox1.Text<>'' then
begin
s:=combobox1.Text;
combobox1.Items.Insert(0,s);
s:=s+' ';
while pos(' ',s)>0 do delete(s,pos(' ',s),1);
k:=0; max:=0;
for i:=1 to length(s) do
if s[i]<>' '
then k:=k+1
else begin
if k>max then max:=k;
k:=0;
end;
label1.Caption:='Количество символов в самой длинной группе: '+inttostr(max);
end;
end;
Cls
input n
dim a(n)
for i=1 to n
input a(i)
next i
for i=1 to n
for j=1 to n
if a(i)<a(j) then swap a(i),a(j)
next j
next i
for i=1 to n
print a(i);
next i
7.
N=2^i;
N=32
i=5;
512*256*5=655360/8=81920/1024=80кбайт
8.
N=16
i=4
512*128*4=262144/8=32768/1024=32кбайт
9.
N=8
i=3
256*128*3=98304/8=12288/1024=12кбайт
10.
N=256
i=8
128*128*8=131072/8=16384/1024=16кбайт