Пронумеруем действия. Сначала нужно выполнить деление. Потом умножение. Потом вычитание. Потом сложение.
Чтобы было понятнее, я расставлю скобки: 200101 - ((168017 : 37) * 23) + 8239
1) Выполняем деление. 168017 : 37 = 4541 Перепишем полностью то, что у нас получилось на текущий момент, чтобы увидеть, что мы посчитали: 200101 - (4541 * 23) + 8239
2) Теперь выполняем умножение. 4541 * 23 = 104443 В твоих рассуждениях была ошибка, в третьем действии ты пытался складывать число 4541. Обрати внимание, после умножения у нас нет этого числа: 200101 - 104443 + 8239
3) Теперь выполняем вычитание: 200101 - 104443 = 95658 Снова запишем то, что у нас осталось: 95658 + 8239
4) Последнее действие, складываем: 95658 + 8239 = 103897
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.
не могу сказать верно или нет, так как не проверял а просто написал в блокнотике