Question

(Даю 50 баллов) (Язык программирования не важен) Никита работает на автостоянке. В его обязанности входит запись номеров въезжающих машин. Это довольно скучное занятие и поэтому Никита решил оптимизировать этот процесс. Он хочет, чтобы компьютер обрабатывал изображение с камеры перед въездом в автостоянку и записывал номера. Никита уже написал софт, который обнаруживает на изображении последовательности из шести символов; осталось только проверять, является ли данная последовательность номером. Но из-за того, что Никита постоянно отвлекается на запись номеров, он просит вас о помощи. Автомобильный номер – строка из шести символов. Первый символ – заглавная латинская буква, далее следует 3 цифры, и после – две заглавные латинские буквы. Например, строка "P142EQ" является номером. Вам будет дана строка, состоящая из шести символов, необходимо ответить, является ли строка автомобильным номером. Формат входных данных: В единственной строке находится строка из шести символов, состоящая из цифр и заглавных латинских букв. Формат выходных данных: Если строка является автомобильным номером, то необходимо вывести "Yes", в ином случае – "No" без кавычек. Sample Input 1: K040LE Sample Output 1: Yes Sample Input 2: M3239L Sample Output 2: NoПрограммирование — Напишите программу. Тестируется через stdin → stdout

Answer 1

Var s:string;beginreadln(s);if (s[1] in ['A'..'Z']) and (s[2] in ['0'..'9']) and (s[3]in['0'..'9']) and (s[4] in ['0'..'9']) and(s[5] in ['A'..'Z'])and (s[6]in['A'..'Z'])then writeLn('Yes') else writeLn('No');end.