Заданный текст содержит только цифры и буквы. Определить обладает ли он следующим...

Question

Заданный текст содержит только цифры и буквы. Определить обладает ли он следующим свойством Текст содержит ровно две цифры. Написать программу в Delphi

Comments

В числах цифры считать?

---

это все задание, видимо да

---

Обязательно в Делфи?

---

да

---

Программу оконную или консольную?

---

чтобы черное окошечко вылезало

---

Консольная.

---

а, да точно

Answer 1

Program PT;
{$APPTYPE CONSOLE}
Var
   S:string;
   i,k:integer;
Begin
Write('Text: ');
ReadLn(S);
For i:= 1 to Length(S) do
    if ('0'<=S[i])and(S[i]<='9') then k:=k+1;<br>WriteLn(k=2);
ReadLn
End.

Comments

что добавить, чтобы в ответе выводилось да или нет?

---

Вместо "WriteLn(k=2);" написать if k = 2 then WriteLn('Да') else WriteLn('Нет');