(Даю 50 баллов) (Язык программирования не главен) Никита работает на автомобильной стоянке.

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

Задать свой вопрос
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. 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт