Блок - схема, видимо вроде такого вам надо )
Var s: string; i, count: integer;
begin
write('Введите текст: '); readln(s);
for i := 1 to length(s) do
if(s[i] <> ' ') then inc(count);
writeln('Кол-во символов: ', count);
<span>end.</span>
Для кодирования одного из шести символов необходимо log(2)6 ≈ 3 бита.
Для кодирования пароля из 23 символов необходимо
23*3 = 69 бит = 69/8 байт ≈ 9 байт.
Для 50 паролей: 50*9=450 байт.