Program String68;
Var
s, vs : String;
k, i : Integer;
Begin
WriteLn('String -> ');
Read(vs);
s[1] := 'a'; s[2] := 'b';
s[3] := 'c'; s[4] := 'd';
s[5] := 'e'; s[6] := 'f';
s[7] := 'g'; s[8] := 'h';
s[9] := 'i'; s[10] := 'j';
s[11] := 'k'; s[12] := 'l';
s[13] := 'm'; s[14] := 'n';
s[15] := 'o'; s[16] := 'p';
s[17] := 'q'; s[18] := 'r';
s[19] := 's'; s[20] := 't';
s[21] := 'u'; s[22] := 'v';
s[23] := 'w'; s[24] := 'x';
s[25] := 'y'; s[26] := 'z';
k := 0;
For i := 1 To Length(vs) Do
Begin
If vs[i] <> s[i] Then
Begin
k := i;
Break;
End;
End;
Writeln('Symbol -> ', k);
End.
Похожие записи/страницы:
- В введенном тексте подсчитать количество букв и количество цифр - Pascal(Паскаль)
- Разработать функцию MakeStr(const S:string):string, возвращающую строку, состоящую из всех гласных латинских…
- Разработать функцию MakeStr(const S:string):string, возвращающую строку, состоящую из всех гласных латинских…
- Задана строка символов. Вывести в алфавитном порядке все латинские буквы, встречающиеся в строке. Все выводимые…
- Дано целое число N(>1) и набор из N вещественных чисел. если данный набор образует убывающую последовательность,…
- Имеется строка символов, содержащая буквы латинского алфавита и цифры. Найти длину наибольшей последовательности…
- Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей…
- Дана строка, содержащая от 2-х до 10-ти слов, в каждом из которых от 1-го до 8-ми строчных латинских букв. Между…