определить, удовлетворяет ли строка определенному свойству Опции

[condemime]

_{Паскаль.}
В заданную непустую строку входят только цифры и буквы.
Определить, удовлетворяет ли она следующему свойству:
строка начинается с k букв (1<=k<=9), за которыми следует только одна литера -
цифра с числовым значение k.
_{На мой код компилятор стал ругаться, мол ошибка 26, а я столько всего исправил, но ничего и никак не смог обойти.}


Сообщение отредактировано: condemime - 8.11.2013 16:03

[Ромаха]

_{Паскаль.}
В заданную непустую строку входят только цифры и буквы.
Определить, удовлетворяет ли она следующему свойству:
строка начинается с k букв (1<=k<=9), за которыми следует только одна литера -
цифра с числовым значение k.
_{На мой код компилятор стал ругаться, мол ошибка 26, а я столько всего исправил, но ничего и никак не смог обойти.}

Тогда покажите свой код..
Я бы делал так :

i := 1;
while (i <= k) and (s[i] in ['0'..'9'] do
    Inc (s[i]);

WriteLn ((i > k) and (s[i] = Chr(k+48))

Сообщение отредактировано: Ромаха - 8.11.2013 17:05

[condemime]

Рабочая программа. Мб пригодиться кому то.

Код

program lab4_34
var s,s1:string;
i,k,p:integer;
n:set of char;
begin
writeln(‘vv s’); readln(s);
writeln(‘vv k’); readln(k);
n:=[‘A’..’Z’,’a’..’z’];
p:=0;
for i:=1 to k do
if (s[i] in n) then p:=p+1;
if p=k then writeln(‘usl1+’) else(‘usl1-’);
str(l, s1);
if s[k+1]=s1[1] then writeln(‘usl2+’) else writeln(‘usl2-’);
readln;
end.

Сообщение отредактировано: APAL - 11.11.2013 13:43