КТО НИБУДЬ Написать программу для решения задачи. Даны два момента времени в течение одних
суток:
h1 – часы первого момента
min1 – минуты второго момента
h2 – часы второго момента
min2 – минуты второго момента
Известно, что второй момент был позже. Определить, сколько часов и минут между
этими двумя моментами времени. Все исходные данные вводятся с клавиатуры.
Задача аналогична задаче Сдача с сайта informatics.mccme.ru
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3('Введите три числа:');
if b.Between(a,c) then (a,b,c):=(2*a,2*b,2*c);
if (a<0) or (b<0) or (c<0) then (a,b,c):=(Abs(a),Abs(b),Abs(c));
Writeln('a=',a,', b=',b,', c=',c)
end.
Пример
Введите три числа: 3.6 -5.2 8
a=3.6, b=5.2, c=8
Первый оператор читает с клавиатуры три вещественных числа и помещает их в переменные a,b,c.
Второй оператор проверяет, находится ли второе число (b) между остальными двумя (может и совпадать с одним из них). Если да, то значение каждой переменной удваивается.
Третий оператор проверяет, есть ли среди введенных чисел хоть одно отрицательное. Если есть, значения заменяются их модулями (становятся положительными).
И в конце следует вывод результатов.