Вывести строку, в которой записана сумма натуральных чисел, например '21+22+3'. Вычислить это выражение.

Простейший вариант программы, предполагающий, что строка записана абсолютно верно и содержит только числа, соединенные знаком "плюс".

const

digits=['0' ... '9'];

var

s, sn:string;

i, err:integer;

n, sum:longint;

begin

Write ('Введите числа, соединяя их знаком плюс: ') ;

Readln (s) ;

i:=2; sn:=s[1]; sum:=0;

while i<=Length (s) do begin

if s[i] in digits then sn:=sn+s[i]

else begin

Val (sn, n, err) ;

sum:=sum+n;

sn:=''

end;

Inc (i)

end;

Val (sn, n, err) ;

sum:=sum+n;

Writeln ('Сумма равна ', sum)

end.

Тестовое решение:

Введите числа, соединяя их знаком плюс: 21+22+3

Сумма равна 46