Дана строка, содержащая цифры и строчные латинские буквы. Если буквы в строке упорядочены по алфавиту, то вывести 0; в противном случае вывести номер первого символа строки, нарушающего алфавитный порядок
Категория: Delphi/Pascal
2013-03-31 22:09:53
code: #pascal
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.
Поделиться: