Цитата:
Сообщение от Мартышонок
7. Дана строка, содержащая 30 символов. Подсчитать количество цифр, входящих в данную строку.
|
type
cf : set of '0'..'9';
var
s:string[30];
cifr:cf;
i,k:integer;
begin
readln(s);
cifr:=['0','1','2','3','4','5','6','7','8','9'];
k:=0;
for i:=1 to length(s)
if s[i] in cifr then k:=k+1;
writeln (k);
end.