Пароль называется криптостойким, если выполнены 4 критерия: пароль содержит строчные латинские буквы пароль содержит заглавные латинские буквы пароль содержит цифры длина пароля не менее 8 символов требуется по данному паролю определить, сколько критериев криптостойкости выполнено. формат ввода: вводится одна строка, состоящая только из латинских букв и цифр. количество символов в строке не превышает 100. формат вывода: выведите количество критериев криптостойкости, которым удовлетворяет пароль. (это надо в паскале)
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.