Question

Пароль называется криптостойким, если выполнены 4 критерия: Пароль содержит строчные латинские буквы Пароль содержит заглавные латинские буквы Пароль содержит цифры Длина пароля не менее 8 символов Требуется по данному паролю определить, сколько критериев криптостойкости выполнено. Формат ввода: Вводится одна строка, состоящая только из латинских букв и цифр. Количество символов в строке не превышает 100. Формат вывода: Выведите количество критериев криптостойкости, которым удовлетворяет пароль. (это надо в паскале)

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

begin

 var s := ReadString;

 ((s.Count(t -> t in ['a'..'z']) > 0 ? 1 : 0) + (s.Count(t -> t in ['A'..'Z']) > 0 ? 1 : 0) +

 (s.Count(t -> t in ['0'..'9']) > 0 ? 1 : 0) + (s.Length >= 8 ? 1 : 0)).Println;

end.