Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Вывести строку, в которой записана сумма натуральных чисел,например 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