Question

Написать программу, которая выводит на экран количество чисел, имеющихся в строке из различных знаков. Паскаль.

Answer 1

Var
   S:string;
   i,k:integer;
Begin
k:=0;
Write('Введите текст: ');
ReadLn(S);
For i:= 1 to Length(S) do
    if ('0'<=S[i])and(S[i]<='9') then k:=k+1;
WriteLn('k = ',k);
End.