Составить программу для определения корректности логина. Правильный логин представляет из себя строку, состоящую из двух частей: - строка из двух букв "io" и набора цифр. Есть код

[1033249]

Составить программу для определения корректности логина. Правильный логин представляет из себя строку, состоящую из двух частей. Первая часть - строка из двух букв "io", вторая часть - набор цифр. Таким образом, логин "io182865" корректный, а логин "ind3038" - нет.
Объясните, что не так и как исправить:

program login;
var s1,s2,io:string;
begin 
writeln('Введите логин');
read(s1);
read(s2);
if (s1='io')and ((s2<='10')or(s2>='1')) then writeln('Correct') else  writeln('Incorrect');
s1 := s1 + s2;
end.

[min@y™]

44.png

[1033249]

Можете пояснить?

[min@y™]

Сообщение от 1033249

Можете пояснить?

[Serge_Bliznykov]

Сообщение от 1033249

Можете пояснить?

а что пояснить то?
функция, которая решает вашу задачу.
передаём в функцию строку, функция возвращает либо true (строка соответствует правилам) или false (не соответствует).

функция работает так:
если длина строки меньше 3 символов или первые два символа строки не равны io - сразу выходим с результатом false
иначе перебираем все символы от 3 и до конца строки, если любая из них не цифра, то выходим с результатом false.
если не вышли, значит, все условия соблюдены, устанавливаем результат функции true.

вот и всё.

p.s. не нравится функция - не используйте. напишите все эти же проверки прямо у себя в коде.
но с функцией гораздо красивей, эффективней и, главное, так правильно делать.