(Паскаль)Найти произведение цифр, встречающихся в строке

[Doublefaced]

Помогите с задачкой:

Дана строка символов до точки. Группа символов в ней между пробелами считается словом Найти произведение цифр, встречающихся в строке.

[Sazary]

Во-первых, где ваши наработки? Чем помочь-то?
Во-вторых, если нужно найти произведение цифр в строке, то какая разница, разделена она на слова или нет? (просто интересно)

Идете по строке посимвольно до точки. Если текущий символ - цифра (s[i] in ['0'..'9']), то отнимаем от ее кода 48 и домножаем на это число общее произведение.

[Doublefaced]

var
s:string;
l,i:integer;
begin
writeln('Vvedite stroku:');
readln(s);
l:=length(s);
for i:=1 to l do
if s[i] in ['0'..'9'] then

Примерно так? Вот с отниманием кода, я не совсем понял.

[Sazary]

Заведите еще одну переменную (типа longint), где будете хранить произведение. Вначале она равна 1.
Далее вводите строку и начинаете цикл (то, что вы написали).
Если символ - цифра, то отнимаем от кода 48 ( ord(s[i])-48) и это число домножаем на произведение.
Просто коды цифр (как символов) находятся в диапазоне 48-57.

[Doublefaced]

var
s:string;
l,i:integer;
g:longint;
begin
writeln('Vvedite stroku:');
readln(s);
g:=1;
l:=length(s);
for i:=1 to l do
if s[i] in ['0'..'9'] then (ord(s[i])-48);
s:=s[i]*g;
writeln(s);
readln;
end.

Либо я не правильно написал, либо ошибка в типах данных.

[Sazary]

неправильно написали.

if s[i] in ['0'..'9'] then (ord(s[i])-48);

Вы ничему не присваиваете получившееся число.

s:=s[i]*g;

А это что? Хотите умножить символ на число?

if s[i] in ['0'..'9'] then g := g*(ord(s[i])-48);

[Doublefaced]

почему то выводит тоже число, которое вводишь.

[__STDC__]

begin
end;
в цикле забыли..

[Doublefaced]

не помогло, к сожалению.

[__STDC__]

а.. ну блин.. я не туда смотрю... там же в цикле одно выражение, так что неважно.. надо написать writeln(g) вместо writeln(s)