Question

Срочно!
Имя входного файла: стандартный ввод
Имя выходного файла: стандартный вывод
Ограничение по времени: 1 секунда
Ограничение по памяти: 256 мегабайт

Вам даны два момента времени, причем гарантируется, что они оба находятся в течение одних суток и первый из них находится строго раньше второго. По данной информации определите, использовался ли для их записи 12 часовой или 24 часовой формат. Напомним, что в 12 часовом формате часы записываются целыми числами с 1 до 12, в то время, как в 24 часовом нумерация начинается с 0 до 23 включительно.

Формат входных данных
В первой и второй строках находятся первых и второй момент времени соответственно.
Времена заданы в формате НН:ММ (00
Формат выходных данных
Взависимости от того в каком, 12 или 24 часовом, формате может может быть записано данное время, выведите "12-hour clock" или "24 - hour clock" соответственно. В случае неоднозначности выведите - "both".

Answer 1

program a;

var a,b:real;  

n: integer;

begin  

repeat  

write('Введите число от 0 до 24 два раза xx.xx');  

readln(a, b);

n:=0;

if (1<=a) and (a<13) then n:=n+1

else if (0<=a) and (a<=24) then n:=n+2;

if (1<=b) and (b<3) then n:=n+1

else if (0<=b) and (b<=24) then n:=n+2;

if n<2 then write ('12-hour clock')

else if n>2 then write ('24-hour clock');

if n=2 then white ('both');

end.