В странах А и В считают время по-разному. В одном часе в стране А ровно 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
.
var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do write(c[i], ' ');
end.
Обе программы работают!
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.