Урок 16(Решенная задача номер 3)
Primary tabs
Урок 16(Решенная задача номер 3)
3)Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней.
var s : string; i, c : integer; begin writeln('vvedite stroky'); readln(s); c := 0; for i := 1 to length(s) do if (s[i] >= '0') and (s[i] <= '9') then Inc(c); writeln('kol-vo cifr ravno ', c); end.
- Log in to post comments
- 1263 reads
vedro-compota
Sat, 10/10/2020 - 20:25
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)