Выведите на экран все слова из строки, содержащие 3 цифры - Turbo Pascal

Формулировка задачи:

Выведите на экран все слова из строки, содержащие 3 цифры

Код к задаче: «Выведите на экран все слова из строки, содержащие 3 цифры - Turbo Pascal»

textual
Var s,st:string;
    i,k:byte;
Begin
    write('Строка: ');readln(s);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      st:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if Length(st)<3 then Continue;
      k:=0;
      For i:=1 to Length(st) do
       if st[i] in ['0'..'9'] then inc(k);
      if k=3 then writeln(st);
    End;
    readln;
End.

15   голосов, оценка 4.067 из 5


СОХРАНИТЬ ССЫЛКУ