Строки, Проверка условия Опции

[Yurka]

Помогите составить програмку:
Условие:
Задан непустоой текст, в который входять только буквы и цыфры. Проверить или удовлетворяет он такое условие, что в текст входят только одна цыфра причём её значение равно длине текста

[Yurka]

Спасибо большое
у меня тоже уже кое-какие идейки возникли

Код

var
s,s1:string;
c:char;
y,n,i:integer;
Begin
writeln('text:');
readln(s);
for i:=1 to length(s) do
if (s[i]='0') or (s[i]='1') or (s[i]='2') ... or (s[i]='9') then
begin
n:=n+1;
c:=s[i];
end;
y:=Length(s);
Str(y,S1);
if (n=1) and (c=s1[1]) then
write('da') else write('net');
end.

Вроде сработало. Функция Str() помогла

Сообщение отредактировано: Yurka - 21.01.2005 16:45