Вывести сумму чисел из строки

[Айдар]

Помогите решить задачу. Значит вводим строку (допустим так сегодня пошел гулять в 5 часов и в 6 пришёл домой). Значит результат будет 11 (5+6). Паскаль

[DomiNick]

Ну примерно как-то так...

Var i, L, N: Integer; S: String;
...
S:= <тут нужная строка> ;
L:=Length(S);
N:=0;
For i:=1 To L Do
      N:=N+StrToInt(S[i]);
WriteLn('Summa ravna:  ', N);
...

[Айдар]

Ок,щас в паскаль набью токо не уходи плиз

[__STDC__]

в паскале нет функции strtoint... лучше что-нибудь типа

var
	s:string;
	i,sum:byte;
begin
	readln(s);

	for i:=1 to length(s) do 
		if (s[i] in ['0'..'9']) then
			sum := sum + ord(s[i]) - 48;

	writeln(sum);
	readln;
end.

[Айдар]

значит вот тут пишет
N:=N+StrToInt(S[i]); неизвестный индефекатор, а вообще что это такое StrToInt

[Айдар]

__STDC__
Не правильно считает.

[Айдар]

А может надо чето типа этого надо разделить все слова пробелами, если есть в слове [1..9] то преобразовать в числа (val) и прибавлять к сумме, только как это реализовать?

[__STDC__]

Она считает сумму цифр, как было в вашем примере

[Айдар]

__STDC__
Я сумму цифр в классе сделал а мне надо сосчитать сумму чисел

[__STDC__]

Давайте без претензий... Я вам вообще ничего не обязан делать... Формулируйте задачу яснее. В вашем примере - сумма цифр

var
	s,tmp:string;
	i,sum,num:byte;
begin
	readln(s);
	sum := 0;
	for i:=1 to length(s) do begin
		if (s[i] in ['0'..'9']) then 
			tmp := tmp + s[i]
		else begin
			val(tmp,num);
			sum := sum + num;
			tmp := '';
		end;
	end;

	writeln(sum);
	readln;
end.