Задача 3 Урок 17
Primary tabs
Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней
var s:string; i,n:Integer; begin readln(s); n := 0; for i:=1 to Length(s) do begin // обходим строку в цикле if (s[i]>='0')and(s[i]<='9') then inc(n); end; writeln('This string contains ',n,' digits.'); // выводим массив readln(); end.
Вывод консоли:
asc213cdsfc341reedcdvsr32124 This string contains 11 digits.
- Log in to post comments
- 177 reads