Произведение чисел можно прочитать по-разному. Наиболее подходящий вариант,объясняющий ход решения, такой:
15*2=30
15 увеличить в 2 раза равно 30.
То есть если мы перемножим множители ,которые не равны 15,то получим число ,на которое мы увеличиваем 15.
15*2*3=15*6=90 -в 6 раз
15*3*5=15*15=225 - в 15 раз
15*4*3=15*12=180 - в 12 раз
15*5*2=15*10=150- в 10 раз
15*6*3=15*18=270- в 18 раз
Менее рациональный
15*2*3=90
90/15=6 -в 6 раз
15*3*5=225
225/15=15- в 15 раз
15*4*3=180
180/15=12 - в 12 раз
15*5*2=150
150/15=10- в 10 раз
15*6*3=270
270/15=18- в 18 раз
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.
не могу сказать верно или нет, так как не проверял а просто написал в блокнотике