//Cong, tru;
var S,P: ansistring;
x: int64;
R: int64;
i: integer;
sign: char;
begin
assign(input,'input.txt');
reset(input);
readln(S);
close(input);
S:='+'+S;
P:=''; x:=0; R:=0;
for i:=1 to length(S) do
begin
if (S[i]<>'+') and (S[i]<>'-') then
begin
P:=P+S[i];
end;
if (S[i]='+') or (S[i]='-') or (i=length(S)) then
begin
val(P,x);
case sign of
'+': R:=R+x;
'-': R:=R-x;
end;
P:=''; sign:=S[i];
end;
end;
assign(output,'output.txt');
rewrite(output);
write(R);
close(output);
end.
1. Cài đặt phầm mềm Pascal 2.0.4, nhớ lưu ở C:\Program Files
2. Nhập chương trình trên vô phần mềm Pascal 2.0.4
3. Vô C:\Program Files\2.0.4\bin\i386-win32, tạo file input.txt
4. Copy và paste cái đề vô file input.txt
5. Chạy chương trình
6. Vô file output.txt cũng nằm ở C:\Program Files\2.0.4\bin\i386-win32, thấy đáp án ;)
Đáp án: $52103953254393$