fork download
copy 
  1. program ideone;
  2. uses sysutils;
  3.  
  4. var s : string;
  5.   summa:integer;
  6. begin
  7. 	summa := 0;
  8. 	s:='0e1a';
  9. 	summa := summa + StrToInt('$'+Trim(s));
  10.  
  11. 	s:='  ee12 ';
  12. 	summa := summa + StrToInt('$'+Trim(s));
  13.  
  14. 	s:='10fd';
  15. 	summa := summa + StrToInt('$'+Trim(s));
  16.  
  17. 	WriteLn('Summa in decimal = ', summa);
  18. 	WriteLn('Summa in hex = ', IntToHex(summa,8));
  19.  
  20. end.
  21.  
Success #stdin #stdout 0s 436KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Summa in decimal = 3369
Summa in hex = 00000D29
https://ideone.com/aeBqXN
language:
Pascal (fpc 3.0.4)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!