Комментарии 2

• Немного формализма:
  — строка, содержащая цифры и строчные латинские буквы // без прописных
  — вывести номер первого символа строки // а не сам символ

  Сам сделал так:

  program String68; const LowerCase = ['a'..'z']; var Line : string; Counter, Result : byte; Spare : char; begin writeln('Enter a string of letters and numbers: '); readln(Line); Counter := 1; Spare := chr(ord('a') - 1); Result := 0; while (Counter <= Length(Line)) and (Result = 0) do begin if (Line[Counter] in LowerCase) then if (Line[Counter] > Spare) then Spare := Line[Counter] else Result := Counter; inc(Counter); end; writeln('The element number breaking the sequence is ', Result); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

  program String68;   const    LowerCase = ['a'..'z'];   var    Line            : string;    Counter, Result : byte;    Spare           : char;   begin    writeln('Enter a string of letters and numbers: ');    readln(Line);    Counter := 1;    Spare   := chr(ord('a') - 1);    Result  := 0;    while (Counter <= Length(Line)) and (Result = 0) do       begin          if (Line[Counter] in LowerCase) then             if (Line[Counter] > Spare) then                Spare := Line[Counter]             else                Result := Counter;          inc(Counter);       end;    writeln('The element number breaking the sequence is ', Result); end.

  Ответить

  • Да, согласен. У меня не то решение:
    Было:

    Delphi/Pascal

    program String68; var S,C:String; i:integer; begin Write('S: '); Readln(S); i:=2; C:=S[1]; while (i<=Length(S)) and ((not(s[i] in ['A'..'Z','a'..'z']) or (s[i]>C))) do begin if s[i] in ['A'..'Z','a'..'z'] then C:=S[i]; inc(i); end; if (Length(S)+1=i) then writeln('0') else writeln(S[i]); end.

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

    program String68; var S,C:String; i:integer;   begin   Write('S: ');   Readln(S);     i:=2;   C:=S[1];   while (i<=Length(S)) and ((not(s[i] in ['A'..'Z','a'..'z']) or (s[i]>C))) do    begin     if s[i] in ['A'..'Z','a'..'z'] then C:=S[i];     inc(i);    end;   if (Length(S)+1=i) then writeln('0')   else writeln(S[i]); end.

    Заменил на ваше.

    Ответить