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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы