Question

На вход программе подаётся последовательность символов, заканчивающаяся точкой (точка – признак конца и в последовательность не входит). данная последовательность является правильной записью арифметического выражения, состоящего из целых десятичных чисел и знаков «плюс» и «минус» (могут стоять и перед первым числом). при этом два знака подряд в выражении не допускается. программа должна вычислить значения данного выражения и вывести его на экран. гарантируется, что ни на каком этапе вычислений тип longint не переполнится. пример: введено «234-234+657.», программа должна вывести «657».

Answer 1

Var s,s1:string; sum,a,code,i:integer;
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