Новые сообщения · Правила  
  • Страница 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 ]
  • Страница 1 из 1
  • 1
Поиск: