Решение задачи №3 из главы 16
Primary tabs
Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней.
Вывод консоли d2f34g8h64h57 Kolichestvo chisel 8
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('Kolichestvo chisel ',n); // выводим массив readln(); end.
- Log in to post comments
- 1614 reads
vedro-compota
Sun, 11/22/2020 - 16:51
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)