Строка содержит арифметическое выражение в виде двух чисел, между которыми стоит знак...

Сегодня примерно в 10:32 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.

Тема вопроса с пояснением

Строка содержит арифметическое выражение в виде двух чисел, между которыми стоит знак арифметического действия ("+" или "-"). Составьте программу, которая предлагает ввести строку, выполняет данное арифметическое действие и выводит результат.

Ответ с привлечением экспертов

Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:

И сразу же ответим на него:

После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

Я здесь и для *(умножения тоже сделал)
program gt;
label 1;
var a:string;
i,l,s,s2,s3,j:longint;
begin
read(a);l:=length(a);s:=0;s2:=0;
for i:=1 to l do
begin
if (a[i]='+')or(a[i]='-')or(a[i]='*')then goto 1;
end;
1:
for j:=1 to i-1 do
begin
if a[j]='1' then s:=s*10+1;
if a[j]='2' then s:=s*10+2;
if a[j]='3' then s:=s*10+3;
if a[j]='4' then s:=s*10+4;
if a[j]='5' then s:=s*10+5;
if a[j]='6' then s:=s*10+6;
if a[j]='7' then s:=s*10+7;
if a[j]='8' then s:=s*10+8;
if a[j]='9' then s:=s*10+9;
if a[j]='0' then s:=s*10+0;
end;
for j:=i+1 to l do
begin
if a[j]='1' then s2:=s2*10+1;
if a[j]='2' then s2:=s2*10+2;
if a[j]='3' then s2:=s2*10+3;
if a[j]='4' then s2:=s2*10+4;
if a[j]='5' then s2:=s2*10+5;
if a[j]='6' then s2:=s2*10+6;
if a[j]='7' then s2:=s2*10+7;
if a[j]='8' then s2:=s2*10+8;
if a[j]='9' then s2:=s2*10+9;
if a[j]='0' then s2:=s2*10+0;
end;
if a[i]='+' then s3:=s+s2;
if a[i]='-' then s3:=s-s2;
if a[i]='*' then s3:=s*s2;
writeln(s3);
end.
2)более проще
program gt;
label 1;
var a:string;
i,l,s,s2,s3,j:longint;
begin
read(a);l:=length(a);s:=0;s2:=0;
for i:=1 to l do
begin
if (a[i]='+')or(a[i]='-')or(a[i]='*')then goto 1;
end;
1:
for j:=1 to i-1 do
begin
s:=s*10+ord(a[j])-48;
end;
for j:=i+1 to l do
begin
s2:=s2*10+ord(a[j])-48;
end;
if a[i]='+' then s3:=s+s2;
if a[i]='-' then s3:=s-s2;
if a[i]='*' then s3:=s*s2;
writeln(s3);
end.