Для записи 32х комбинаций достаточно 5 бит. (значит каждая буква алфавита занимает 5 бит).
Следовательно в слове из 30 букв информации будет 30*5=150 бит.
Var c, d, rez:integer;
function k9 (a,b:integer):integer;
begin
if a=b then rez:=a+b else rez:=b-a;k9:=rez
end;
begin
write ('Введите a - ');readln(c);
write ('Введите b - ');readln(d);
writeln(k9(c ,d));
<span>end.</span>
Тогда так
<em><span>V= d*i*t*s, где t – длительность звучания файла, s – количество каналов звучания, V - объем звукового файла</span></em>
I=8 бит,
d=8 кГц,
t=1200*1024*8/( 8*8*1000)=153,6 секунд
//PascalABC.NET
var
m : integer;
begin
// Зарезервируем массив [0..9] для подсчета повторов
var a := ArrFill(10, 0);
// Запрос пользователю ввести положительное число
repeat
m := ReadlnInteger('Введите 0 или положительное число ')
until m >= 0;
// Подсчет количества повторяющихся цифр
while m > 0 do begin
a[m mod 10] += 1;
m := m div 10
end;
// Найдем в массиве повторы от 2 и более раз?
if a.FindIndex(x -> x>=2) = -1 then
// Повторов не найдено. Вывод сообщения
writeln('Нет повторов.')
else begin
// Повторы есть.
write('Повторяются: ');
// Выведем повторяющиеся цифры
for var i := 0 to 9 do
if a[i] > 1 then write(i, ' ')
end
end.