Эта задача с открытыми тестами. Ее решением является набор ответов, а не программа на языке программирования. Тесты указаны в самом условии, от вас требуется лишь ввести ответы на них в тестирующую систему. В странах А и В считают время по-разному. В одном часе в стране А ровно M1 минут, а в одном дне ровно H1 часов. В стране В в одном часе ровно M2 минуты, а в одном дне ровно H2 часов. Минуты в обеих странах считаются одинаково. В какой-то момент в стране А началась засуха. Правительство этой страны знает, что в стране В засуха длилась ровно K дней (по исчислению страны B), и попросило ученых дать ответ на вопрос: «Как долго продлится засуха в стране А?». По подсчетам ученых, если сравнивать полное количество минут, то засуха в стране А будет дольше в T раз, чем в стране B. Через какое время страна А победит засуху по исчислению страны А? Выходные данные Для каждого теста требуется ввести в тестирующую систему три целых числа через пробел в следующем формате: KK HH MM где: KK - количество дней засухи в стране А по исчислению времени страны А. HH - количество часов засухи в стране А по исчислению времени страны А с учетом того, что уже KK дней. MM - количество минут засухи в стране А по исчислению времени страны А с учетом того, что уже KK дней и HH часов. Примечание Например, если K=5 , M1=7, H1=5, M2=10, H2=10, T=2 , то засуха бы продолжалась 28 дней 2 часа и 6 минут по исчислению времени страны А. ответ выглядел бы следующим образом: 28 2 6 Тест №1: K=1 , H1=1, M1=1, H2=1, M2=1, T=1 ; Тест №2: K=1 , H1=7, M1=2, H2=2, M2=7, T=1 ; Тест №3: K=2 , H1=4, M1=16, H2=8, M2=4, T=4 ; Тест №4: K=41 , H1=82, M1=94, H2=47, M2=8, T=93 ; Тест №5: K=41 , H1=45, M1=82, H2=4, M2=8, T=7 ; Тест №6: K=4 , H1=7, M1=32, H2=9, M2=4, T=4 ; Тест №7: K=40 , H1=16, M1=99, H2=26, M2=69, T=50 ; Тест №8: K=5 , H1=30, M1=29, H2=85, M2=29, T=48 ; Тест №9: K=22 , H1=85, M1=90, H2=86, M2=29, T=19 ; Тест №10: K=2 , H1=52, M1=60, H2=46, M2=76, T=33 . Формат результата Введите в поле три числа, разделенные пробелом - ответы на тест 3.
// Внимание! Если программа не работает, обновите версию!
unit ASM;
interface
type SF=(integer,integer);
function AddSF(a,b:SF):SF;
function SubSF(a,b:SF):SF;
function MultSF(a,b:SF):SF;
function DivSF(a,b:SF):SF;
implementation
function Gcd(p:SF):integer;
begin
(var a,var b):=p;
a:=abs(a); b:=abs(b);
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
function ReductSF(p:SF):SF;
begin
var t:=Gcd(p);
if t>1 then Result:=(p[0] div t,p[1] div t)
else Result:=p
end;
function AddSF(a,b:SF):=ReductSF((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));
function SubSF(a,b:SF):=ReductSF((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));
function MultSF(a,b:SF):=ReductSF((a[0]*b[0],a[1]*b[1]));
function DivSF(a,b:SF):=ReductSF((a[0]*b[1],a[1]*b[0]));
end.
Пример работы с модулем
uses ASM;
begin
var a:=(5,24);
var b:=(7,8);
var c:=AddSF(a,b);
Writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1])
end.
Результат
5/24+7/8=13/12