Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Составьте программу позволяющую найти количество цифр во введённой строке s

Ответ оставил Гость

Count:=0;
for i:=1 to Length(St) do if Ord(St[i]) in [48..57] then Inc(Count);
Writeln(Count);