C: = a - b * 2;
Переменную b не обязательно брать в скобки, ибо умножение выполняется первее .
Смотри. Всё предельно просто.
1) 30 строк * 32 символа в каждой = 960 символов на каждой странице.
2) 960 символов * 16 страниц = 15 360 символов в твоей книге.
3) 15 360 символов * 16 бит в каждом = 245 760 бит у тебя в книге.
Ответ: 245 760 бит.
Ответ может быть немного другим, смотря в чем тебя просят указать объем (вес) статьи. Если в байтах - делим на 8 и получаем 30 720 байт, если в килобайтах - делим на 1024 и получаем 30 килобайт.
Вот такое решение устроит?
1)
var
s: string;
begin
writeln('Введите строку: ');
readln(s);
if pos('а', s) <> 0 then writeln('В строке есть буква "а"')
else writeln('В строке нет буквы "а"');
end.
2)
var
s: string;
i, a: byte;
begin
a := 0;
writeln('Введите строку: ');
readln(s);
for i := 1 to length(s) do if s[i] = 'м' then a := a + 1;
writeln('В строке буква "м" встречается ', a, ' раз(а)');
end.
3)
var
s: string;
begin
writeln('Введите строку: ');
readln(s);
while pos('и', s) <> 0 do delete(s, pos('и', s), 1);
writeln('Строка после удаления букв(ы) "и": ', s);
end.