Var
s,s1:string;
i:integer;
begin
writeln ('Введите строку.');
readln (s);
s1:='';
for i:= 1 to length(s)-1 do
begin
if s[i] <> ' ' then s1:=s1+s[i];
if (s[i] = ' ')and(s[i+1] <> ' ') then s1:=s1+s[i];
end;
s:='';
if s1[1] = ' ' then
for i:= 2 to length(s1) do
s:=s+s1[i]
else
for i:= 1 to length(s1) do
s:=s+s1[i];
writeln(s);
end.
Var
a : char;
b : integer;
begin
readln(a);
b := ord(a);
writeln(chr(b+1), chr(b+2))
end.
Алфавит = 10 цифр+26 маленьких букв+26 больших букв = 62символа.
ближайщая степень двойки 64 = 2^6 т.е. 6 бит на символ
6*10 = 60 бит весит пароль
870*8-60 = 6 900 бит = 862.5 байт
862 байт
Дом-дым
мел-мол
тик-так
пил-пол
сыр-сэр
сон-сын
суд-сад
дул-дол