Question

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

Answer 1

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

Answer 2

а не знаешь как будет программа позволяющая выяснить сколько раз встречается каждая буква алфавита во веденной строке s пример август ответ кол букв а=1 кол букв б=0 и так до я