fork download
copy 
  1. program prova;
  2. var V, W, cod:int64;
  3.     S: ansistring;
  4. begin
  5.      S:='12345';
  6. 	val(S,V,cod);
  7. 	val('12375',W,cod);
  8. 	if abs(W-V) mod 2 =0 then writeln(abs(W-V))
  9. 	                     else writeln('ciao');
  10. end.
Success #stdin #stdout 0s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
30
https://ideone.com/4i5fiQ
language:
Pascal (fpc 3.0.4)
created:
1 day 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!