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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.