Question

Два момента времени гарантируется что они обе находится течении одних суток и первый находится раньше второго воспользовался ли для них их записи 12 или 24 часовой формат

Answer 1

var a,b,c,d:string[5];

k,l,err:integer;

begin

readln(a);

readln(b);

c:=copy(a,1,2);

d:=copy(b,1,2);

val(c,k,err);

val(d,l,err);

if k=0 then write ('24-hour clock') else

if k>12 then write ('24-hour clock') else

if l>12 then write ('24-hour clock') else

if l=12 then write ('both') else

write ('12-hour clock');

readln

end.