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