От полностью надежного хранения пароля можно ожидать как минимум, что никто посторонний не имеет доступа к паролю и не может получить такой доступ.
Для каждого из перечисленного злоумышленник может получить доступ к паролю:
В записной книжке в нижнем ящике письменного стола – плохой если злоумышленник сможет получить доступ к столуВ текстовом файле в скрытой папке на компьютере – нехорошо, если злоумышленник обладает немного большим, чем минимальными знаниями компьютеровВ специальной программе, бесплатно скачанной в Интернете – есть риск, что программа написана с ошибками или специально передает пароли третьим лицамПоэтому все перечисленные выше считать полностью надежными нельзя
Однако стоит заметить, что полностью надежных просто не существует. Даже при хранении данных "в голове" можно достать их оттуда без воли владельца (например, в состоянии опьянения, в бреду, во сне; при знании принципов, которыми руководствовался тот, кто придумывал пароль). Кроме того, от полностью надёжного хранения хотелось бы иметь возможность получить доступ к паролю в любое время, под этот критерий запоминание пароля не подходит – пароль можно забыть.
begin
var Прирост := 1 + ReadReal('Введите х в процентах:') / 100;
var (Запас, Отлов, Порог) := ReadReal3('Введите A, B, C в тоннах:');
var Лет := 0;
while Запас >= Порог do
begin
Запас := Запас * Прирост - Отлов;
Inc(Лет);
if Лет > 1000 then
begin
Println('И на тысячу лет хватит!');
Exit
end
end;
Println(Лет - 1)
end.
Введите х в процентах: 12.5Введите A, B, C в тоннах: 300 90 753
