Цитата:
Сообщение от M@rgo
задача :
Строки
№22
Дана строка, изображающая целое число. Вывести сумму цифр этого числа.
VAR
S:String;
i,n:Byte;
Sum,Code:Word;
BEGIN
Writeln('Enter the string:');
Readln(S);
Sum:=0;
For i:=1 to Length(S) do
begin
Val(S[i],n,Code);
Inc(Sum,n);
end;
Writeln('Sum= ',Sum);
Readln
END.
|
Так Вы об этой? Сразу нужно сообщать, о какой программе речь.
Поскольку информацию Вы так и не дали (где сбой, какие сообщения и т.п.) - постараюсь догадаться.
Для начала попробуйте в разделе описания переменных заменить две строки
i,n:Byte;
Sum,Code:Word;
одной строкой
i,n,Sum,Code:Integer;
Возможно, это решит проблемы.