Задача 3 Урок 17
Primary tabs
Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней.
Подсказка: для определения принадлежности символа цифре используйте идею из этого кода.
program u17z3; var s: string; i,n: integer; begin writeln('vvedite stroku:'); readln(s); n:=0; for i:=1 to length(s) do begin if (s[i]>='0')and(s[i]<='9') then n:=n+1; end; write('Chicel= ',n); readln; end.
- Log in to post comments
- 239 reads