Задачка A. Кола Имя входного файла: ain.txt Имя выходного файла: aout.txt

Задачка A. Кола Имя входного файла: ain.txt Имя выходного файла: aout.txt Ограничение по медли: 0,2 секунды Ограничение по памяти: 64 мб Завод по производству колы делает ее не только для магазинов, но и для всемирно знаменитой сети ресторанов прыткого кормления. Повседневно завод отгружает один и тот же объем колы в литрах. Служба доставки сети ресторанов обычно употребляет для транспортировки колы емкости объемом либо только 50 л., или только 70 л.. Если доставка исполняется с подмогою емкостей в 50 л., то для перевозки имеющегося объема колы нужно A емкостей. А если с помощью емкостей в 70 л., то необходимо B емкостей. При этом в каждом из случаев одна из емкостей может быть заполнена не полностью. Не так давно сеть ресторанов решила утвердить новый объем емкостей для доставки колы 60 л.. Сколь- ко емкостей сейчас может пригодиться для доставки того же самого объема колы? Формат входного файла Входные данные содержат 2 числа A и B, расположенных каждое в отдельной строке (1 A, B 10 000 000). Формат выходного файла Выведите все возможные значения для количества емкостей по 60 л., которые окажутся заполнен- ными (в том числе одна вероятно частично), в порядке возрастания или число 1, если значения A и B противоречат друг другу, то есть они были записаны ошибочно.

Задать свой вопрос
1 ответ

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 (minAgt;maxB) or (minBgt;maxA) then writeln(-1) else

begin

if minAlt;minB then minn:=minB else minn:=minA;

if maxAgt;maxB then maxx:=maxB else maxx:=maxA;

t:=minn div 60;

t1:=maxx div 60;

if (minn mod 60)lt;gt;0 then inc(t);

if (maxx mod 60)lt;gt;0 then inc(t1);

for i:=t to t1 do  

write(i, ' ');

writeln();

end;

end.


не могу сказать правильно либо нет, так как не проверял а просто написал в блокнотике


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт