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.
не могу сказать верно или нет, так как не проверял а просто написал в блокнотике
х (дисков) - продали в первый день
у (дисков) - продали во второй день
z (дисков) - продали в третий день
х+у+z=60 (1)
х/3=у*40/100-(1/3 проданного в первый день равна 40% проданного во второй день)
х/3= 2у/5
5х=6у
у=5х/6
х/3=z/2 - (1/3 проданного в первый день равна половине проданного в третий день)
2х=3z
z=2х/3
Подставим значения y и z в уравнение (1)
х+5х/6+2х/3=60
(6х+5х+4х)/6=60, умножим обе части уравнения на 6, получим:
15х=360
х=360:15
х=24 (диска) - продали в первый день
у=5х/6
у=5*24/6=20 (дисков) - продали во второй день
z=2х/3
z=2*24/3
z=16 (дисков) - продали в третий день
-3y=-4-2
-3y=-6
3y=6 - ответ
y=2