РАБОТА С ЛИТЕРНЫМИ ПЕРЕМЕННЫМИ.

[yanevforme]

В заданный непустой текст входят только цифры и буквы. Длина текста не более 12 символов.

Определить, удовлетворяется ли следующее свойство:
Текст совпадает с каким-то отрезком ряда 0123456789 (например: 23, 678);


Помогите плиз кто шарит,заранее спасибо

[Stilet]

Запросто:

MODULE m;
 IMPORT StdLog,Strings;

 PROCEDURE do*(s:ARRAY OF CHAR);
 CONST a='0123456789';
 VAR i,k,res:INTEGER;
 BEGIN
  StdLog.Clear;
  i:=0;res:=-1;
  Strings.Find(a,s,i,res);
  IF res=-1 THEN StdLog.String('Не входит')
  ELSE StdLog.String('Входит'); END;
 END do;

END m.

Вызывать

"m.do('567')";

[yanevforme]

спасибо огромное!

это же бэйсик?
мне на турбопаскале надо=)))

[Stilet]

Ух ты какой... А чего ж ты ранее не сказал?
P.S. И при чем тут бейсик, непонятно...

[yanevforme]

думал тут всё в паскале