БЫСТРО. 1 ОСТАЛСЯ ДО СДАЧИ. ТАМ ГДЕ К = ЭТО КАЖДЫЙ НОВЫЙ ТЕСТ. ВСЕГО ИХ ПЯТЬ. Сдать решение задачи B-1-Относительность времени (тест 1) Оставшиеся посылки: 100 Относительность времени (тест 1) Эта задача с открытыми тестами. Ее решением является набор ответов, а не программа на языке программирования. Тесты указаны в самом условии, от вас требуется лишь ввести ответы на них в тестирующую систему.
В странах А и В считают время по-разному. В одном часе в стране А ровно M 1 минут, а в одном дне ровно H1 часов. В стране В в одном часе ровно M 2 минуты, а в одном дне ровно H 2 часов. Минуты в обеих странах считаются одинаково.
В какой-то момент в стране А началась засуха. Правительство этой страны знает, что в стране В засуха длилась ровно K дней (по исчислению страны B), и попросило ученых дать ответ на вопрос: «Как долго продлится засуха в стране А?». По подсчетам ученых, если сравнивать полное количество минут, то засуха в стране А будет дольше в T раз, чем в стране B.
Через какое время страна А победит засуху по исчислению страны А?
Выходные данные Для каждого теста требуется ввести в тестирующую систему три целых числа через пробел в следующем формате:
K K H H M M где: K K - количество дней засухи в стране А по исчислению времени страны А.
H H - количество часов засухи в стране А по исчислению времени страны А с учетом того, что уже K K дней.
M M - количество минут засухи в стране А по исчислению времени страны А с учетом того, что уже K К дней и H H часов. Формат результата Введите в поле три числа, разделенные пробелом - ответы на тест 1. Например если К=5, М1=7, Н1 =5, М2=10, Н2=10, Т=2, то засуха бы продолжалась 28 дней 2 часа и 6 минут по исчислению времени страны а. ответ выглядел бы следующим образом: 28 2 6
Var x, i, h1, h2, h3, h4, h5, h6, s1, s2: integer; begin readln (x); h1 := x div 100000; h2 := x mod 100000 div 10000; h3 := x mod 10000 div 1000; h4 := x mod 1000 div 100; h5 := x mod 100 div 10; h6 := x mod 10; s1 := h1 + h2 + h3; s2 := h4 + h5 + h6; if (s1 = s2) then writeln('Счастливый') else writeln('Несчастный:)'); readln; end.
Вот, ошибка в целочисленном делении) Советую такое на листочке расписывать: 123321 и обводить что нужно взять, что в каком порядке откидывать...)
1) var a,b,a1,b1:real; var s,s1:real; begin WriteLn('Введите все катеты через пробел:'); Read(a,b,a1,b1); s:=a/2*b; s1:=a1/2*b1; WriteLn(s); WriteLn(s1); if s = s1 then WriteLn('Треугольники равновелики') else if s>s1 then WriteLn('Площадь первого треугольника больше на '+(s-s1)) else WriteLn('Площадь второго треугольника больше на '+(s1-s)); end.
2) var a,b:Integer; var arr:array of char; begin arr:=ReadString().ToCharArray(); for var i:= 1 to 6 do if(i<4) then a+= strtoint(arr[i-1]) else b+= strtoint(arr[i-1]); if a=b then WriteLn('Билет счастливый') else WriteLn('Билет не счастливый'); end.
Тест 1: 1 0 0
Тест 2: 1 0 0
Тест 3: 4 0 0
Тест 4: 186 0 0
Тест 5: 2 22 0
Тест 6: 2 4 0
Тест 7: 2265 2 42
Тест 8: 680 0 0
Тест 9: 136 23 22
Тест 10: 73 49 36
Объяснение:
Результаты, полученные с программы, написанной на Python:
K = int(input())
H1 = int(input())
M1 = int(input())
H2 = int(input())
M2 = int(input())
T = int(input())
minutes2 = K*H2*M2
MM = minutes2*T
HH = 0
KK = 0
while MM >= M1:
MM = MM - M1
HH = HH + 1
while HH >= H1:
HH = HH - H1
KK = KK + 1
print(KK)
print(HH)
print(MM)