ShahTV
16.11.2020 04:11

Эта задача с открытыми тестами. Ее решением является набор ответов, а не программа на языке программирования. Тесты указаны в самом условии, от вас требуется лишь ввести ответы на них в тестирующую систему. В странах А и В считают время по-разному. В одном часе в стране А ровно
M
1
минут, а в одном дне ровно
H
1
часов. В стране В в одном часе ровно
M
2
минуты, а в одном дне ровно
H
2
часов. Минуты в обеих странах считаются одинаково.

В какой-то момент в стране А началась засуха. Правительство этой страны знает, что в стране В засуха длилась ровно
K
дней (по исчислению страны B), и попросило ученых дать ответ на вопрос: «Как долго продлится засуха в стране А?». По подсчетам ученых, если сравнивать полное количество минут, то засуха в стране А будет дольше в
T
раз, чем в стране B.

Через какое время страна А победит засуху по исчислению страны А?

Выходные данные
Для каждого теста требуется ввести в тестирующую систему три целых числа через пробел в следующем формате:

K
K

H
H

M
M
где:

K
K
- количество дней засухи в стране А по исчислению времени страны А.

H
H
- количество часов засухи в стране А по исчислению времени страны А с учетом того, что уже
K
K
дней.

M
M
- количество минут засухи в стране А по исчислению времени страны А с учетом того, что уже
K
K
дней и
H
H
часов.

Примечание
Например, если
K
=
5
,
M
1
=
7
,
H
1
=
5
,
M
2
=
10
,
H
2
=
10
,
T
=
2
, то засуха бы продолжалась 28 дней 2 часа и 6 минут по исчислению времени страны А.

ответ выглядел бы следующим образом:

28 2 6

Тест №1:
K
=
1
,
H
1
=
1
,
M
1
=
1
,
H
2
=
1
,
M
2
=
1
,
T
=
1
;
Тест №2:
K
=
1
,
H
1
=
7
,
M
1
=
2
,
H
2
=
2
,
M
2
=
7
,
T
=
1
;
Тест №3:
K
=
2
,
H
1
=
4
,
M
1
=
16
,
H
2
=
8
,
M
2
=
4
,
T
=
4
;
Тест №4:
K
=
41
,
H
1
=
82
,
M
1
=
94
,
H
2
=
47
,
M
2
=
8
,
T
=
93
;
Тест №5:
K
=
41
,
H
1
=
45
,
M
1
=
82
,
H
2
=
4
,
M
2
=
8
,
T
=
7
;
Тест №6:
K
=
4
,
H
1
=
7
,
M
1
=
32
,
H
2
=
9
,
M
2
=
4
,
T
=
4
;
Тест №7:
K
=
40
,
H
1
=
16
,
M
1
=
99
,
H
2
=
26
,
M
2
=
69
,
T
=
50
;
Тест №8:
K
=
5
,
H
1
=
30
,
M
1
=
29
,
H
2
=
85
,
M
2
=
29
,
T
=
48
;
Тест №9:
K
=
22
,
H
1
=
85
,
M
1
=
90
,
H
2
=
86
,
M
2
=
29
,
T
=
19
;
Тест №10:
K
=
2
,
H
1
=
52
,
M
1
=
60
,
H
2
=
46
,
M
2
=
76
,
T
=
33
.
Формат результата
Введите в поле три числа, разделенные пробелом - ответы на тест 1.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
kupmvik
17.03.2023 05:57
// PascalABC.NET 3.0, сборка 1128
const
  nmax=100;
var
  n,i,j,nn,nz,np,t:integer;
  a,an,az,ap:array[1..nmax] of integer;
begin
  // формируем массив и выводим его
  Write('Количество элементов в массиве: '); Read(n);
  for i:=1 to n do begin
    a[i]:=Random(11)-5;
    Write(a[i],' ')
    end;
  Writeln;
  // разбиваем массив на три подмассива
  nn:=0; nz:=0; np:=0;
  for i:=1 to n do
    if a[i]<0 then begin nn:=nn+1; an[nn]:=a[i] end
    else
      if a[i]=0 then begin nz:=nz+1; az[nz]:=a[i] end
      else begin np:=np+1; ap[np]:=a[i] end;
  // сортируем массив с отрицательными элементами по убыванию
  for i:=1 to nn-1 do
    for j:=1 to nn-1 do
      if an[j]<an[j+1] then
        begin t:=an[j]; an[j]:=an[j+1]; an[j+1]:=t end;
  // сортируем массив с положительными элементами по возрастанию
  for i:=1 to np-1 do
    for j:=1 to np-1 do
      if ap[j]>ap[j+1] then
        begin t:=ap[j]; ap[j]:=ap[j+1]; ap[j+1]:=t end;
  // формируем новое содержимое массива a
  i:=0;
  for j:=1 to nz do begin i:=i+1; a[i]:=az[j] end;
  for j:=1 to np do begin i:=i+1; a[i]:=ap[j] end;
  for j:=1 to nn do begin i:=i+1; a[i]:=an[j] end;
  // вывод результата
  for i:=1 to n do Write(a[i],' ');
  Writeln
end.

Тестовое решение:
Количество элементов в массиве: 15
1 2 5 0 -5 -3 0 0 1 -4 3 -2 -2 0 -5
0 0 0 0 1 1 2 3 5 -2 -2 -3 -4 -5 -5
0,0(0 оценок)
Ответ:
НЕЗНАЙКА2283371
16.11.2021 17:31
//Pascal ABC.NET v3.1 сборка 1172

Var
 ma:array of array of integer;
 i,j,n,r:integer;
begin
 readln(n);
 setlength(ma,n+1);
 for i:=1 to n do
 setlength(ma[i],n+1);
 writeln('Matrix:');
 for i:=1 to n do
 begin
  writeln;
  for j:=1 to n do
   begin
    ma[i,j]:=random(n);
    write(ma[i,j]:4);
   end;
 end;
 for i:=1 to n do
  for j:=i+1 to n do
  r:=r+ma[i,j];
 r:=r div 3;
 writeln;
 if odd(r) then writeln('Да') else writeln('Нет');
end.

Пример ввода:
4
Пример вывода:
Matrix:

   0   1   3   3
   3   0   0   3
   2   3   0   2
   3   0   2   3
Нет
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота