Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Bilet;
- var
- password: string;
- hasBad: Boolean;
- hasNumber: Boolean;
- hasEnglish: Boolean;
- C: Char;
- begin
- readLn(password);
- if Length(password) < 9 then
- WriteLn('нет')
- else
- begin
- hasBad := false;
- hasNumber:= false;
- hasEnglish := false;
- for C in password do
- begin
- if C in ['0'..'9'] then
- hasNumber := true
- else
- if C in ['a'..'z'] then
- hasEnglish := true
- else
- hasBad := true;
- end;
- if hasBad then
- WriteLn('нет')
- else
- if hasNumber and hasEnglish then
- WriteLn('да')
- else
- WriteLn('нет')
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement