БЫСТРО. 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 и обводить что нужно взять, что в каком порядке откидывать...)
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.
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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Даны два целых числа. Определить, равны ли они. Вывести 'Yes', если эти числа равны и 'No' в противном случае.
Автор: ivanandrieiev1984268
Найдите площадь поверхности куба со стороной a
Автор: nmakarchuk
Тест 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)