Преобразовать их к формату «фамилия-инициалы». Ввести символьную строку и заменить все буквы «а» на буквы «б» и наоборот, как заглавные, так и строчные.
Если предполагается, что ФИО вводится на одной строке через пробел, то первая программа будет такой: var fio,s,f,i:string; p:integer; begin writeln('Введите ФИО'); readln(fio); p:=pos(' ',fio); s:=copy(fio,1,p-1)+'-'+fio[p+1]; delete(fio,1,p); p:=pos(' ',fio); s:=s+fio[p+1]; writeln(s); <span>end.
Программа для 2 задачи: var s:string; i:integer; begin writeln('Введите строку'); readln(s); for i:=1 to length(s) do case s[i] of 'А': s[i]:='Б'; 'а': s[i]:='б'; 'Б': s[i]:='А'; 'б': s[i]:='а'; end; writeln(s); <span>end.</span></span>
0...125 - 126 возможных значений. 2^6 < 126 < 2^7 На запись результата каждого измерения требуется 7 бит. Информационный объём результатов наблюдений: 7•70 = 490 бит.