Программа с массивом (хотя он тут и не нужен): var a:array[1..60] of char; st:string; i,p:integer; begin writeln('Введите массив символов:'); readln(st); writeln('Вот массив:'); for i:=1 to length(st) do begin a[i]:=st[i]; write(a[i]); end; writeln; st:=' '+st+' '; p:=pos(' mama ',st); while p>0 do begin delete(st,p,6); insert(' ded ',st,p); p:=pos(' mama ',st); end; writeln('Измененный массив:'); for i:=1 to length(st)-2 do begin a[i]:=st[i+1]; write(a[i]); end; writeln; end.
Пример: Введите массив символов: mama papa okno mama primer baba Вот массив: mama papa okno mama primer baba Измененный массив: ded papa okno ded primer baba
Если в десятичную, то:
11110111=1*2^7+1*2^6+1*2^5+1*2^4+1*2^3+1*2^2+1*2^1+1*2^0=128+64+32+16+0+4+2+1=247^10
Если надо, могу перевести в восьмеричную и шестнадцатиричную :)