PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:string; Writeln('Введите строку:'); Readln(s);
var s1:=ReadlnString('Что меняем:');
var s2:=ReadlnString('Чем заменить:');
s:=s.Replace(s1,s2);
Writeln('Результат'); Writeln(s)
end.
Пример
Введите строку:
(X > 0) and (Y < X) and (Z > Y) and (Z <> 5)
Что меняем: and
Чем заменить: &
Результат
(X > 0) & (Y < X) & (Z > Y) & (Z <> 5)
113(10) — 1110001(2)
36(8) — 11110(2)
C52(16) — 110001010010(2)
Жесткие диски, флеш карты, касеты.
2^5 < 50 <2^6 ----> 6 бит для кодировки одного символа
F= 6*50*30*30 = 270 000 бит=
=270 000 :8 байт =33750 байт =33 750 :1024 Кбайт≈ 33 Кбайта
N=2^i - количество символов
64=2^i, i=5