с++ Петухи в замке поют по утрам. Они это делают N раз, начиная со времени h1 часов m1 минут. А их пение повторяется каждые X минут. Определите все часы и минуты, в которые поют петухи по утрам.
Формат входных данных
N - количество песен петухов (0 ≤ N < 720)
X - длительность перерыва между песнями петухов в минутах (0 < N < 240)
h1 - час первой песни петухов (0 ≤ h1 ≤ 23)
m1 - минута первой песни петухов (0 ≤ m1 < 60)
Формат выходных данных
Выведите в столбец время все песен петухов в формате ... h ... m
Примечания
В задаче используется 24-часовая система счисления времени. При этом полночь обозначается как 0h, а не как 24h
входные данные выходные данные
4 29 11h 58m
11 58 12h 27m
12h 56m
13h 25m
4 30 23h 15m
23 15 23h 45m
0h 15m
0h 45m
uses StrUtils;
var text,buffer : String;
var tpos,lastpos,counter,biggest : Integer;
begin
tpos := 0;
text := '';
while(tpos = 0) do begin
readln(buffer);
text += buffer;
tpos := pos('.',buffer)
end;
lastpos := 1;
tpos := PosEx(' ',text,lastpos);
if tpos = 0 then
tpos := PosEx('.',text,lastpos);
biggest := tpos-1; lastpos := tpos+1;
while(not (tpos = 0)) do begin
tpos := PosEx(' ',text,lastpos);
if tpos = 0 then
tpos := PosEx('.',text,lastpos);
if (tpos-lastpos) > biggest then
biggest := tpos-lastpos;
lastpos := tpos+1;
end;
lastpos := 1; counter := 0;
tpos := PosEx(' ',text,lastpos);
if tpos = 0 then
tpos := PosEx('.',text,lastpos);
while(not (tpos = 0)) do begin
if (tpos-lastpos) = biggest then
counter += 1;
lastpos := tpos + 1;
tpos := PosEx(' ',text,lastpos);
if tpos = 0 then
tpos := PosEx('.',text,lastpos);
end;
writeln(counter);
end.