Задача 3 урок 16
Primary tabs
Задача 3 урок 16
Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней.
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 inc(n); //процедура n:=n+1 end; writeln('V stroke ',n,' chisel.'); // выводим массив readln(); end.
- Log in to post comments
- 418 reads