Выведите все возможные значения для количества емкостей по 60 литров, которые окажутся заполненными - Turbo Pascal
Формулировка задачи:
Завод по производству колы изготавливает ее не только для магазинов, но и для всемирно известной сети ресторанов быстрого питания.
Ежедневно завод отгружает один и тот же объем колы в литрах. Служба доставки сети ресторанов обычно использует для транспортировки колы емкости объемом или только 50 литров, или только 70 литров. Если доставка осуществляется с помощью емкостей в 50 литров, то для перевозки имеющегося объема колы необходимо А емкостей. А если с помощью емкостей в 70 литров, то необходимо В емкостей. При этом в каждом из случаев одна из емкостей может быть заполнена не полностью.
Недавно сеть ресторанов решила утвердить новый объем емкостей для доставки колы — 60 литров. Сколь¬ко емкостей теперь может понадобиться для доставки того же самого объема колы?
Формат входных данных
Входные данные содержат 2 числа А и В, расположенных каждое в отдельной строке (1 ≤ А, В ≤ 10 000 000).
Формат выходных данных
Выведите все возможные значения для количества емкостей по 60 литров, которые окажутся заполненными (в том числе одна возможно частично), в порядке возрастания или число -1, если значения А и В противоречат друг другу, то есть они были записаны неверно
Решение задачи: «Выведите все возможные значения для количества емкостей по 60 литров, которые окажутся заполненными»
textual
Листинг программы
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д