fork(2) download
copy 
  1. program ideone;
  2. uses SysUtils, DateUtils;
  3.  
  4. var sum:TDateTime;
  5. var Str:String;
  6. var aString:String;
  7. var bString:String;
  8. begin
  9.   readln(aString);
  10.   readln(bString);
  11.   sum := StrToDateTime(aString) + StrToDateTime(bString);
  12.   Str:=Format('%d:%.2d',[HoursBetween(sum, 0),MinuteOf(sum)]);
  13.   WriteLn(Str);
  14.   Str:=Format('%d:%s',[HourOf(sum),FormatDateTime('nn',sum)]);
  15.   WriteLn(Str);
  16. end.
Success #stdin #stdout 0s 424KB
comments (?)
stdin
copy 
12:40
13:25
stdout
copy 
26:05
2:05
https://ideone.com/VlmaBi
language:
Pascal (fpc 3.0.4)
created:
10 years ago
visibility:
secret

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!