Цитата:
Сообщение от 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.