подсчитать количество цифр в символьной строке и напечатать все, кроме пробелов, знаков операций и пунктуации. множества Pascal

[программирование]

добрый вечер, программисты. помогите, пожалуйста написать программу.

подсчитать количество цифр в символьной строке, которая вводится с клавиатуры и напечатать все, кроме пробелов, знаков операций и знаков пунктуации.
знаки пунктуации и цифры представить как множества. организовать циклический ввод строк до нажатия клавиши Esc.

заранее, огромное спасибо за помощь.

кто-нибудь знает как написать эту программу? напишите, пожалуйста.

[Stilet]

подсчитать количество цифр в символьной строке

Readln(s);
count:=0;
for i:=1 to Length(s) do if s[i] in ['0'..'9'] then inc(count);

напечатать все, кроме пробелов, знаков операций и знаков пунктуации.

...
for i:=1 to Length(s) do if not (s[i] in ['.',',',' ','?','!']) then write(s[i]);

организовать циклический ввод строк до нажатия клавиши Esc.

Какой паскаль?

[программирование]

нужно написать программу на языке Pascal ABC.

вот моя программа, которая вычисляет количество цифр в символьной строке

program zd;
uses crt;
Var s:string;
    i,k:byte;
Begin
    write('Введіть рядок : ');readln(s);
    k:=0;
    For i:=1 to Length(s) do
     if s[i] in ['0'..'9'] then inc(k);
    if k>0 then writeln('кількість цифр в рядку =',k)
     else writeln('цифр в рядку немає ');
End.

[Stilet]

написать программу на языке Pascal ABC.

А-а-а. Этот... Удачи )

вот моя программа

На первый взгляд верная.

[Serge_Bliznykov]

и напечатать все, кроме пробелов, знаков операций и знаков пунктуации.

  k := 0;
  For i:=1 to Length(s) do begin
     if s[i] in ['0'..'9'] then inc(k);
     if (not s[i] in ['0'..'9'])   {если не цифра }
           and (not s[i] in ['+','-','*','/'])   {и если не знаки операций}
             and (not s[i] in [',','.','?','-','!',':'])  {и если не знаки пунктуаций}
         then Write(s[i]); {напечатать знак}
  end;
  WriteLn;