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

[Doublefaced]

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

Выложу решение, можнт кому приготится, работает, кроме пробелов.

[__STDC__]

Оо
там по-моему лишнего много.. вот мой вариант, на котором я тестировал

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 g := g*(ord(s[i])-48);
writeln(g);
readln;
end.

[Doublefaced]

Всё из-за строки символов до точки

[__STDC__]

Сообщение от Doublefaced

Всё из-за строки символов до точки

...
begin
writeln('Vvedite stroku:');
readln(s);
s := copy(s,1,pos('.',s);
...

например так, если в строке содержится точка..
если же надо до момента ввода точки, считывайте уж посимвольно и прибавляйте к строке символы, отличные от точки..

[Sazary]

Сообщение от PrettyGirl

Найти произведение чисел в строке. Например, в строке "kjjjkkj2.5jkjn,,,hfd45jgfvjlkf dii1 0,2hfhg" произведение равно 2*5*45*10*2=9000

uses crt;
var
s,buf : string;
p,tmp : longint;
i,len,code : integer;

begin
clrscr;
p := 1;
readln(s);
i := 1;
len := length(s);
buf := '';
while i<=len do
 begin
 while (i<=len) and not (s[i] in ['0'..'9']) do inc(i);
 while (i<=len) and (s[i] in ['0'..'9']) do
  begin
  buf := buf + s[i];
  inc(i);
  end;
 val(buf,tmp,code);
 p := p*tmp;
 buf := '';
 end;

writeln(p);

readln;
end.

В следующий раз показывайте свои наработки.

[Doublefaced]

Помогите сделать, чтобы считалось то что только до точки.

[Sazary]

Сообщение от Doublefaced

Помогите сделать, чтобы считалось то что только до точки.

Пост #14 смотрите. Вам уже ответили.

[Doublefaced]

Сообщение от __STDC__

если же надо до момента ввода точки, считывайте уж посимвольно и прибавляйте к строке символы, отличные от точки..

как это? поясните пожалуйста.

[Sazary]

Doublefaced, что как? Как считывать посимвольно? С помощью readkey.

repeat
c := readkey;
if c<>'.' then s:=s+c;
until c='.';

[Doublefaced]

А если я в делфи (КонсольАпл)?