Автор: Anton

Anton — Thu, 15 Dec 2016 03:20:47 +0000

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

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.

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.

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

Автор: Newton

Newton — Wed, 14 Dec 2016 21:15:15 +0000

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

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

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.

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.

Комментарии: Решаем задачи Абрамян на Паскале. String68

Автор: Anton

Автор: Newton