Помогите написать программу 8 класс В общеобразовательной школе города N решили всем...

Question

Помогите написать программу 8 класс В общеобразовательной школе города N решили всем ученикам централизовано выдать логины для доступа к всероссийскому порталу молодёжи. Т.к. большинство школьников сложно запоминают набор цифр и букв, многие из них неправильно запомнили свой логин. Правильный логин представляет из себя строку, состоящую из двух частей. Первая часть это строка из двух букв "io", вторая часть - набор цифр. Таким образом логин "io82865" является корректным, а логин "ind3038" - нет. Каждый школьник хочет узнать, корректен ли его логин. Чтобы не смотреть каждый такой запрос детально, директор школы просит вас написать программу, которая сможет определить корректность логина. Формат входного файла: В единственной строке входного файла дана строка s, состоящая из строчных латинских букв и цифр - логин участника. Формат выходного файла: В единственной строке выходного файла выделяется Correct, если логин корректен для данного контеста. Иначе выделяется Incorrect/

Comments

То есть логин считается корректным, если он состоит из "io" и 5 цифр после него?

---

да

Answer 1

var

  s: string;

  e, tmp: integer;

  mistake: boolean;

   

begin

   

  mistake := true;

   

  write('Введите логин: ');

  readln(s);

   

  if ((s.Length = 7) and (s[1] = 'i') and (s[2] = 'o')) then

  begin

     s := s.Remove(0, 2);

     Val(s, tmp, e);

     

     if (e = 0) then

        mistake := false;

  end;

   

  if (mistake) then

     write('Incorrect')

     

  else

     write('Correct');

end.

---