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

[Айдар]

__STDC__
Нету никаких пртензий, вот переписал твой код, ошибка
http://s52.radikal.ru/i136/0906/f6/b1d4464f733e.jpg

[__STDC__]

Сообщение от Айдар

вот переписал твой код, ошибка
http://s52.radikal.ru/i136/0906/f6/b1d4464f733e.jpg

уберите точку с запятой.. перед else ; не ставится =)

[Айдар]

ввожу 43 54 я пошел гулять (здесь всё спокойно считает=97)

ввожу это я пошёл в 6 и пришёл в 4 (выводит только 6, а надо 10)

[__STDC__]

пробел ставьте в конце...

или исправить так

...
		if (s[i] in ['0'..'9']) then 
			tmp := tmp + s[i];
		if not(s[i] in ['0'..'9']) or (i = length(s)) then begin
			val(tmp,num);
...

[Айдар]

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

writeln(sum);
readln;
end.

Подсказали что можно вот так ещё, а вообще с пробелом работает, спасибо вам.

[NSvirus]

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

или исправить так

...
		if (s[i] in ['0'..'9']) then 
			tmp := tmp + s[i];
		if not(s[i] in ['0'..'9']) or (i = length(s)) then begin
			val(tmp,num);
...

вот здесь не согласен. Допустим последняя цифра 4.
Потом идет проверка:
если символ 4 не 0..9 или i не последняя, то ...
символ 4 - цифра, поэтому val(...) работать не будет.
Тогда уж так:

if (i=length(s)) or (not(s[i] in ['0'..'9']))) then

[__STDC__]

not(s[i] in ['0'..'9']) or (i = length(s)) - все верно...

НЕ (4 в 0-9) ИЛИ (ТЕК. ПОЗ. = ДЛИНА)
Если символ НЕ последний - получаем
НЕ (ПРАВДА) ИЛИ (ЛОЖЬ) = ЛОЖЬ ИЛИ ЛОЖЬ = ЛОЖЬ
все нормально - символ цифра - условие не выполняется...
если символ последний
НЕ (ПРАВДА) ИЛИ (ПРАВДА) = ЛОЖЬ ИЛИ ПРАВДА = ПРАВДА
все ок, условие выполняется, т.к. символ последний - добавляем число к сумме...

(i=length(s)) or (not(s[i] in ['0'..'9']))) - Оо то же самое немного переписанное... вы думаете от этого что-то изменилось??

[NSvirus]

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

not(s[i] in ['0'..'9']) or (i = length(s)) - все верно...

ах да, мне показалось что эта скобка закрывается за выражение length(s). офтоп Ы))
з.ы: вот ты намудрил)