profile
Опубликовано 6 лет назад по предмету Информатика от barvenova123456

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

  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.

Самые новые вопросы