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

Бекзатажеси Бекзатажеси    2   22.08.2019 11:50    18

Ответы
neliaefimova37p00o09 neliaefimova37p00o09  05.10.2020 12:26
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика