Не ясно какие именно операции можно использовать. Тут хорошо подойдет Исключающие Или, строгая дизьюнкция, бинарное сложение по модулю 2 (плюсик в кружечке), Xor
Если в обычных операндах дизъюннкции(or) и конъюнкции(and) , то будет так
(not (x>10) and (y>10)) or ((x>10) and not(y>10))
Var s:string;
i:integer;
begin
writeln('Введите строку:');
readln(s);
for i:=1 to length(s) do
if i mod 2 = 0 then s[i]:='!';
writeln(s);
end.
Пример:
Введите строку:
Дана строка состоящая из символов
Д!н! !т!о!а!с!с!о!щ!я!и! !и!в!л!в
CLS
RANDOMIZE TIMER
DIM a(10)
FOR i=1 TO 10
a(i) = INT(RND * 21) - 10
NEXT i
n=0
FOR i=1 TO 10
IF a(i)>=-3 AND a(i)<=3 THEN n=n+1
NEXT i
PRINT n
END
В первом тексте на один символ отводится 5 бит (2^5 = 32), во втором 6 бит (2^6 = 64). Поэтому информационный объем второго текста в 6/5 = 1,2 раза больше