Подсчет значащих цифр массива

[RomT24]

Помогите решить задачу:
"Дано десятичное число. Подсчитать, сколько значащих цифр у него после запятой. Например для числа 4.456655321234 это кол-во равно 6"

Заранее спасибо!

[Gongled]

Решение. Конечно, не самое изящное.

program pr;
uses CRT;
var
s : string;
a : array['0'..'9'] of integer;
c : char;
i, sum : integer;
begin
clrscr;

write('Введите строку: ');
{ Читаем строку с клавиатуры }
read(s);

{ Выделяем дробную часть }
s := copy(s, pos('.',s)+1, length(s)-pos('.',s)+1);

for i:=1 to length(s) do
{ Проверяем принадлежность к множеству }
{ Присваиваем значение 1 всем присутствующим символам}
if s[i] in ['0'..'9'] then a[s[i]] := 1;

{ Считаем количество единиц}
for c:='0' to '9' do sum := sum + a[c];
write(sum);

end.

[RomT24]

Gongled, спасибо огромное!! И кто нибудь мог бы просто написать программу, которая считает кол-во значащих цифр, но в обычном массиве чисел? А то я не могу додуматься до правильного алгоритма (

[RomT24]

И пожалуйста объясните поподробней эту часть программы:
for i:=1 to length(s) do
{ Проверяем принадлежность к множеству }
{ Присваиваем значение 1 всем присутствующим символам}
if s[i] in ['0'..'9'] then a[s[i]] := 1;

{ Считаем количество единиц}
for c:='0' to '9' do sum := sum + a[c];
write(sum)

[Doholyan]

"Дано десятичное число. Подсчитать, сколько значащих цифр у него после запятой. Например для числа 4.456655321234 это кол-во равно 6"


поясни..."значащих цифр"

[RomT24]

Значащих значит разных, отличающихся друг от друга