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