помогите решить пожалуста - Форум ПРОГРАММИСТОВ

Страница 1 из 1 1
Модератор форума: Berestovskiy

помогите решить пожалуста

Ввести текст. Подсчитать в нем количество цифр

Добавлено (15.01.12, 23:10)
---------------------------------------------
Помогитеее)

№1 | Автор: happyface | 2012-01-15, 23:10 | Репутация: [ + 0 ]

var
s:string;
i,q:integer;
begin
q:=0;
readln(s);
for i:=1 to length(s) do
if (ord(s[i]>=48))and(ord(s[i]<=57)) then q:=q+1;
writeln(q);
end.

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2012-01-16, 03:01 | Репутация: [ + 211 ]

прикладная математика