var i,count:integer; str:string; begin readln(str); for i:=1 to length(str) do begin if (ord(str[i]) >= 48) and (ord(str[i]) <= 57) then inc(count); end; writeln('Количество цифр = ',count); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
