Строки

[M@rgo]

программа не работает!!!!! я уже не зна что и делать...можете ее перепроверить???ПОЖАЛУЙСТА!!!!!!!!О чень нужно!!!!!!

задача :
Строки
№22
Дана строка, изображающая целое число. Вывести сумму цифр этого числа.

VAR
 i,n,S,S1:String;
 Sum,Code:Word;
 BEGIN
 Writeln('Enter the string:');
 Readln(S);
 Sum:=0;
 For i:=1 to Length(S) do
 begin
S1:=S[i];
 Val(S1,n,Code);
 Inc(Sum,n);
 end;
 Writeln('Sum= ',Sum);
 Readln
 END.

[mss]

У меня работает.
что я неправильно делаю ?

[M@rgo]

Выдает ошибку:

Invalid FOR control variable:

The FOR Statement control variable must must be a simple variable defined in the declaration part of the current subprogram.

[Serge_Bliznykov]

VAR
i,n,S,S1:String;

ну разумеется!
типы данных заданы неверно!

попробуйте так:

VAR
  S,S1:String;
  i,n,Sum,Code:Word;

p.s. я бы вместо Word использовал Integer - но это уже на ваше усмотрение!

[M@rgo]

Все!!! додумала...вот что получилось))) работает!!!!

VAR
 S,s1:String;
 L:Integer;
 i,n,Sum,Code:Integer;
BEGIN
Writeln('Enter the string:');
Readln(S);
Sum:=0;
L:=Length(s);
For i:=1 to L do
 begin
   S1:=s[i];
   Val(S1,n,Code);
   Inc(Sum,n);
 end;
Writeln('Sum= ',Sum);
Readln
END.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[M@rgo]

Спасибо всем большое!!!!!!!!!

[Serge_Bliznykov]

пожалуйста.

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

Успехов!

[M@rgo]

Спасибочки!!!! Можно еще попросить?очень нужно!!!!!
Помогите с объяснением!!!ПАЖАЛУЙСТА!!!! нужно описать работу задачи по сточно!!!

задача 22: дана строка изображающая целое положительное число. Вывести сумму цифр этого числа.

VAR
 S,s1:String;
 L,i,n,Sum,Code:Integer;
 BEGIN
 Writeln('Enter the string:');
 Readln(S);
 Sum:=0;
 L:=Length(s);
 For i:=1 to L do
 begin
 S1:=s[i];
 Val(S1,n,Code);
 Inc(Sum,n);
 end;
 Writeln('Sum= ',Sum);
 Readln
 END.

[Бурундук]

VAR //объявляем переменные
S,s1:String; //строковые переменные
L,i,n,Sum,Code:Integer; //числовые переменные
BEGIN // начало программы
Writeln('Enter the string:'); // "введите строку"
Readln(S); //выводим строку на экран
Sum:=0; //присваемваем переменной Sum значение равное 0
L:=Length(s); //присваемваем переменной Lзначение дины строки
For i:=1 to L do //цикл от 1 до L
begin
S1:=s[i]; //присваемваем переменной s1значение i того элемента строки
Val(S1,n,Code); //преобразовываем строковое значение в числовое
Inc(Sum,n); //увеличиваем значение переменных на 1
end;
Writeln('Sum= ',Sum); //выводим на экран значение переменной Sum
Readln //заддержка
END. //конец программы

вроде не накосячил =)

[M@rgo]

Хорошо, спасибо большое!!!!!

Во эту строку:
Inc(Sum,n);
можно записать так:
Sum:=Sum+n;
да?и буде тоже самое

А что с этой строкой:
Val(S1,n,Code);
что сдесь обозначает Code?