На вход программе подаётся последовательность символов, заканчивающаяся точкой (точка – признак конца и в последовательность не входит). данная последовательность является правильной записью арифметического выражения, состоящего из целых десятичных чисел и знаков «плюс» и «минус» (могут стоять и перед первым числом). при этом два знака подряд в выражении не допускается. программа должна вычислить значения данного выражения и вывести его на экран. гарантируется, что ни на каком этапе вычислений тип longint не переполнится. пример: введено «234-234+657.», программа должна вывести «657».
begin
writeln('Введите выражение:');
readln(s);
sum:=0;
s1:='';
for i:=1 to length(s) do
case s[i] of
'0'..'9' : s1:=s1+s[i];
'-','+','.' : begin val(s1,a,code); sum:=sum+a; s1:=s[i]; end;
end;
writeln('sum = ',sum);
end.
Пример:
Введите выражение:
234-234+657.
sum = 657