Помогите пожалуйста с программой на паскале.

[svobodys]

В заданныйтекст только входят цифры и буквы. Определить, совпадает ли текст с конечным отрезком ряда 0123456789 (например 9,89,789)

[Min]

не понятно условие....... если в текст будут входить быквы, то он УЖЕ НЕ будет совпадать с конечным отрезком ряда, который этих букв не содержит..... я правильно понял или штото не так?
пример приведи входных-выходных данных.....

[svobodys]

ДА вот я тоже чота не пойму никак. потому и спросил((

Может вроде того, как думаешь?

1.Вводим строку.
2.В цикле от 1 до конца строки смотрим, если есть не цифры, сообщаем "нет" и выходим из программы.
3.В цикле от 2 до конца строки смотрим, если ord(s[i])-ord(s[i-1])=1 и последний символ='9' выводим "да" иначе выводим "нет".

[puporev]

Вроде недавно такую выкладывал, не помню где.

uses crt;
var s:string;
    i,k:integer;
begin
clrscr;
writeln('Введите текст:');
readln(s);
for i:=1 to length(s) do
if not(s[i] in ['0'..'9'])then {если попались не цифры}
     begin
       write('Не совпадает!');
       readln;
       halt;
     end;
k:=0;
for i:=2 to length(s) do
if (ord(s[i])-ord(s[i-1])=1)and(s[length(s)]='9') then {если убывают на 1 и последняя 9}
k:=k+1;
if k=length(s)-1 then {если все цифры и выполняется условие}
write('Cовпадает!')
else write('Не совпадает!');
readln
end.

[Min]

вот решение покороче чуток:

var s:string;
begin
 readln(s);
 if (pos(s,'0123456789')+length(s)=11) then writeln('yes') else writeln('No');
 readln;
end.

[puporev]

Вообще-то не обязательно все цифры.

Определить, совпадает ли текст с конечным отрезком ряда 0123456789 (например 9,89,789)

[Min]

проверь...... все работает.....
функция pos возвращает положение подстроки в строке......

[puporev]

Извини, не врубился, мысленно переставил s и '0123456789'.