Var dc:set of char; s1,s2:string; i:integer; begin dc:=['A'..'D','a'..'d']; s1:='То avoid the impression of the tail wagging the dog, '+ 'the president cannot be seen bending to the wishes of a minority.'; s2:=''; for i:=1 to length(s1) do if not(s1[i] in dc) then s2:=s2+s1[i]; Writeln('Исходная строка: ',s1); s1:=s2; Writeln('Результирующая строка: ',s1) end.
Тестовое решение: Исходная строка: То avoid the impression of the tail wagging the dog, the president cannot be seen bending to the wishes of a minority. Результирующая строка: То voi the impression of the til wgging the og, the presient nnot e seen ening to the wishes of minority.
Для перевода из двоичной в шестнадцатеричный надо код разделить на тетрады (на группы по 4 цифры): 0101 1101 1000 1010 1010 1111 0010 1010 Если слева недостаточно цифр до тетрады, то слева добавляем нули. Далее переводим тетрады в шестнадцатеричный код с таблицы: 0000 => 0 0001 => 1 0010 => 2 0011 => 3 0100 => 4 0101 => 5 0110 => 6 0111 => 7 1000 => 8 1001 => 9 1010 => A 1011 => B 1100 => C 1101 => D 1110 => E 1111 => F 0101 1101 1000 1010 1010 1111 0010 1010 = 5D8AAF2A
Для перевода в восьмеричный код делаем аналогично, только на двоичный код делим на группы по 3 цифры: 001 011 101 100 010 101 010 111 100 101 010 И также если не хватает до 3-ех цифр, то слева добавляем нули. Затем переводим по аналогичной таблице: 000 => 0 001 => 1 010 => 2 011 => 3 100 => 4 101 => 5 110 => 6 111 => 7 001 011 101 100 010 101 010 111 100 101 010 = 13542527452
dc:set of char;
s1,s2:string;
i:integer;
begin
dc:=['A'..'D','a'..'d'];
s1:='То avoid the impression of the tail wagging the dog, '+
'the president cannot be seen bending to the wishes of a minority.';
s2:='';
for i:=1 to length(s1) do
if not(s1[i] in dc) then s2:=s2+s1[i];
Writeln('Исходная строка: ',s1);
s1:=s2;
Writeln('Результирующая строка: ',s1)
end.
Тестовое решение:
Исходная строка: То avoid the impression of the tail wagging the dog, the president cannot be seen bending to the wishes of a minority.
Результирующая строка: То voi the impression of the til wgging the og, the presient nnot e seen ening to the wishes of minority.
0101 1101 1000 1010 1010 1111 0010 1010
Если слева недостаточно цифр до тетрады, то слева добавляем нули.
Далее переводим тетрады в шестнадцатеричный код с таблицы:
0000 => 0 0001 => 1 0010 => 2 0011 => 3 0100 => 4
0101 => 5 0110 => 6 0111 => 7 1000 => 8 1001 => 9
1010 => A 1011 => B 1100 => C 1101 => D 1110 => E
1111 => F
0101 1101 1000 1010 1010 1111 0010 1010 = 5D8AAF2A
Для перевода в восьмеричный код делаем аналогично, только на двоичный код делим на группы по 3 цифры:
001 011 101 100 010 101 010 111 100 101 010
И также если не хватает до 3-ех цифр, то слева добавляем нули.
Затем переводим по аналогичной таблице:
000 => 0 001 => 1 010 => 2 011 => 3
100 => 4 101 => 5 110 => 6 111 => 7
001 011 101 100 010 101 010 111 100 101 010 = 13542527452