Дана строка, состоящая из букв и цифр. Найти сумму всех цифр, входящих в эту строку.

@Qwark · Регистрация: 28.01.2011

Pascal

if s[i] in ['0'..'9'] then
begin
val(s,X,cod);
sum:=sum+X;
end;

почему результат не выводит ? )

@Puporev · 03.03.2011, 14:28

Pascal

if s[i] in ['0'..'9'] then
begin
val(s[i],X,cod);
sum:=sum+X;
end;

Добавлено через 23 секунды
Кстати ноль можно и выкинуть...

@Qwark · 03.03.2011, 14:28 **[ТС]**

воо, спс )

@Qwark 21 / 21 / 21 Регистрация: 28.01.2011 Сообщений: 72
	03.03.2011, 14:28 [ТС]	3
	воо, спс ) 0

Опции темы