Составьте программу позволяющую найти количество цифр во введённой строке s
Составьте программу позволяющую найти количество цифр во введённой строке s
Гость
Ответ(ы) на вопрос:
ГостьCount:=0;
for i:=1 to Length(St) do if Ord(St[i]) in [48..57] then Inc(Count);
Writeln(Count);
Не нашли ответ?
Похожие вопросы