var
x,z:string;
i:integer;
ar:array['а'..'я'] of boolean;
begin
readln(x);
readln(z);
for i:=1 to Length(z) do
ar[z[i]]:=true;
for i:=Length(x) downto 1 do
if (ar[x[i]] = true) then delete(x,i-1,1);
writeln(x);
<span>end.
Не забудь отметить лучший ответ ;-)</span>
64=2^6 --> 6 бит для кодировки одного символа
128=2^7 --> 7 бит для кодировки одного символа
11*6=66 бит
11*7=77 бит
У жителей второй планеты сообщение из 11 символов несёт информацию на 11 бит больше, чем сообщение такой же длины жителей первой планеты
77-66=11 бит
var
i,a,b: integer;
begin
writeln('Введите границы интервала: ');
readln(a,b);
for i:=a to b do
writeln(i,' ',sqr(i),' ',sqr(i)*i);
end.
Для перевода целого десятичного числа в двоичную систему счисления нужно последовательно выполнять деление данного числа и получаемых целых частных на 2 до тех пор, пока не получим частное, равное нулю