Паскаль.
В заданную непустую строку входят только цифры и буквы.
Определить, удовлетворяет ли она следующему свойству:
строка начинается с k букв (1<=k<=9), за которыми следует только одна литера -
цифра с числовым значение k.
На мой код компилятор стал ругаться, мол ошибка 26, а я столько всего исправил, но ничего и никак не смог обойти.
Полная версия: определить, удовлетворяет ли строка определенному свойству
Цитата(condemime @ 8.11.2013 13:02) 
Паскаль.
В заданную непустую строку входят только цифры и буквы.
Определить, удовлетворяет ли она следующему свойству:
строка начинается с 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))
Рабочая программа. Мб пригодиться кому то.
Код
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.
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.