Question

Дана последовательность литер, имеющая следующий вид: d1± d2 ± ... ± dn (di цифры, n>1). Вычислить значение этой алгебраической суммы.

Answer 1

const cf=['0'..'9'];
var s:string;
i,sum,t,c:integer;
begin
writeln('Vvedite posledovatelnost liter:');
readln(s);
val(s[1],t,c); sum:=t;
for i:=2 to length(s)-1 do
begin
if (s[ i ] in cf)and(s[i-1]='+')then
begin
val(s[ i ],t,c);
sum:=sum+t;
end
else if (s[ i ] in cf)and(s[i-1]='-')then
begin
val(s[ i ],t,c);
sum:=sum-t;
end;
end;
writeln('sum=',sum);
end.