//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 Files2. Nhập chương trình trên vô phần mềm Pascal 2.0.43. Vô C:\Program Files\2.0.4\bin\i386-win32, tạo file input.txt4. Copy và paste cái đề vô file input.txt 5. Chạy chương trình6. Vô file output.txt cũng nằm ở C:\Program Files\2.0.4\bin\i386-win32, thấy đáp án ;)Đáp án: $52103953254393$
//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 Files2. Nhập chương trình trên vô phần mềm Pascal 2.0.43. Vô C:\Program Files\2.0.4\bin\i386-win32, tạo file input.txt4. Copy và paste cái đề vô file input.txt 5. Chạy chương trình6. Vô file output.txt cũng nằm ở C:\Program Files\2.0.4\bin\i386-win32, thấy đáp án ;)Đáp án: $52103953254393$
//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 Files2. Nhập chương trình trên vô phần mềm Pascal 2.0.43. Vô C:\Program Files\2.0.4\bin\i386-win32, tạo file input.txt4. Copy và paste cái đề vô file input.txt 5. Chạy chương trình6. Vô file output.txt cũng nằm ở C:\Program Files\2.0.4\bin\i386-win32, thấy đáp án ;)Đáp án: $52103953254393$