var A,B, minA, maxA, minB, maxB, minn, maxx, t, t1, i:longint;
begin
readln(A); readln(B);
minA:=(A-1)*50+1; maxA:=A*50;
minB:=(B-1)*70+1; maxB:=B*70;
if (minA>maxB) or (minB>maxA) then writeln(-1) else
begin
if minA<minB then minn:=minB else minn:=minA;
if maxA>maxB then maxx:=maxB else maxx:=maxA;
t:=minn div 60;
t1:=maxx div 60;
if (minn mod 60)<>0 then inc(t);
if (maxx mod 60)<>0 then inc(t1);
for i:=t to t1 do
write(i, ' ');
writeln();
end;
end.
не могу сказать верно или нет, так как не проверял а просто написал в блокнотике
930 км - весь путь автомобилиста, по условию задачи.
60 км/ ч - скорость с которой автомобилист за 5 часов проехал путь до остановки, по условию задачи.
7 часов - ехал после остановки автомобилист оставшийся путь.
60 * 5 = 300 (км) - путь до отстановки, который автомобилист проехал со скоростью 60 км/ч за 5 часов, из условия задачи.
930 - 300 = 630 (км) - путь оставшийся, который автомобилист после остановки проехал за 7 часов, из условия задачи.
Тогда:
630 : 7 = 90 (км/ч) - скорость с которой за 7 часов автомобилист проехал оставшийся путь.
ответ: 90 км/ч.