Var a: string;
s: integer;
begin
s := 0;
write ('Привет! Введи пароль: ');
readln (a);
while a<>'qwerty' do
begin
s := s+1;
write ('Не угадал! Введи пароль: ');
readln (a)
end;
writeln ('Теперь пароль введён верно! Количество попыток: ',s)
end.
Берем инженерный калькулятор.
Набираем максимальное двоичное число длиной 5 знаков (все единицы) .
Переводим это число в десятичку. Получается число 31.
Т. к. ноль, это то же число, то можно уверенно сказать, что пятью двоичными разрядами можно
закодировать 32 символа (0-31)
Вещественный тип данных обозначается: real.