ЕСЛИ МОЖНО, ТО С ОБЪЯСНЕНИЕМ. ЗАРАНЕЕ ОГРОМНОЕ Таблица стоимости перевозок устроена следующим образом: числа, стоящие на пересечениях строк и столбцов таблиц, означают стоимость перевозок между соответствующими соседними станциями. Если пересечение строки и столбца пусто, то станции не являются соседними. Стоимость перевозок по маршруту складывается из стоимостей перевозок между соседними станциями. Перевозки между населенными пунктами А, B, C, D, E осуществляют три компании, представившие стоимость своих услуг в табличной форме. Какая компания обеспечивает минимальную стоимость перевозок из А в В? ​

Урок "Определение объема графического файла" Задача  2. Какой объем информации занимает черно-белое изображение  размером 600 х 800?Решение:  600 х 800 = 480 000  точек   480 000  точек  х 1 бит = 480 000  бит480 000  бит / 8 бит / 1024 байт ≈ 58, 59 Кбайтответ: 58, 59 Кбайт Задача  3. Определить  объем растрового изображения размером 600 х 800 при глубине цвета 24 бита. Решение:  600 х 800 = 480 000  точек 480 000  точек  х 24 бит = 11 520 000  бит11 520 000 бит / 8 бит / 1024 байт = 1406,25 Кбайт / 1024 байт ≈ 1,37 Мбайтответ: ≈ 1,37 Мбайт Задача  3.  Определить объем видеопамяти компьютера, который необходим для реализации графического режима монитора с разрешающей и палитрой 65536 цветов.Решение: N  = 2i  =  65536       i =  16 бит       Количество точек изображения равно:       1024  х 768 = 78643216 бит  х 786432 = 12582912 бита / 8 бит / 1024 байт = 1536 Кбайт / 1024 байт = 1,5 М байтаответ: 1,5 М байта Задача  4. Определить объем растрового изображения размером  200 х 200 и  256 цветами.Решение: 200  х 200 х 8 бит = 320 000 бит / 8 бит / 1024 байт = 39,0625 Кбайт ≈ 39 Кбайтответ: 39 Кбайт

Var
  s,sd:string;
  i,n,sum,d,err:integer;
begin
  Writeln('Введите строку для суммирования');
  Read(s);
  sum:=0;
  n:=Length(s);
  if n>0 then begin
    i:=2; sd:=s[1];
    while i<=n do begin
      if s[i]<>'+' then sd:=sd+s[i]
      else begin
        Val(sd,d,err);
        sum:=sum+d;
        sd:=''
      end;
      Inc(i);   
    end;
    Val(sd,d,err);
    sum:=sum+d
  end;
  Writeln('Сумма равна ',sum)
end.

Тестовые примеры:
Введите строку для суммирования
1+25+3
Сумма равна 29

Введите строку для суммирования
143+38+253+62
Сумма равна 496