на тему констант, вопросик, не смог найти в факе Опции

[kr3v3tkus]

задачка - Дана строка. Подсчитать количество цифр, которые в ней содержатся.
я гдето видел, что в константу можно вложить несколько значений, но в учебнике не нашёл.Может ето у меня глюк был и значения влаживаются не в константу??? подскажите куда мне забить 0,1,2,3,4,5,6,7,8,9?

[klem4]

const digits = ['0'..'9'];

Сообщение отредактировано: volvo - 7.11.2006 1:44

[kr3v3tkus]

О Клем пасиба я то думал как)))

О Клем пасиба я то думал как)))

а почему тут несовпадение типа пишет? (

program lol;  
const n=['0'..'9'];  
var text:string;      
i,k:integer;  
begin  
writeln('vvest1 text');  
readln(text);  
k:=0;  
for i:=1 to length(text) do  
if text[i]=n then inc(k);  
writeln('4isla v texte vstre4auts1a ',k,' ra3(a)');  
readln;  
end.

Сообщение отредактировано: volvo - 7.11.2006 1:45