Напишите на Paskal Введите строку в которой записана сумма натуральных чисел например '1+25+3'

Предыдущий
вопрос Следующий
вопрос

program SumOfNumbers;

var
str: string;
num, sum: integer;
i: integer;

begin
sum := 0;

Write('Введите строку с суммой натуральных чисел (например "1+25+3"): ');
Readln(str);

str := str + '+';

num := 0;
for i := 1 to Length(str) do
begin
if (str[i] >= '0') and (str[i] <= '9') then
begin
num := num * 10 + Ord(str[i]) - Ord('0');
end
else if str[i] = '+' then
begin
sum := sum + num;
num := 0;
end;
end;

WriteLn('Сумма введенных чисел: ', sum);
end.