Question

Pascal, Бандиты Гарри и Ларри отдыхали на природе. Решив пострелять, они выставили на бревно несколько банок из-под пива (не больше 10). Гарри начал простреливать банки по порядку, начиная с самой левой, Ларри — с самой правой. В какой-то момент получилось так, что они одновременно прострелили одну и ту же последнюю банку. Гарри возмутился и сказал, что Ларри должен ему кучу денег за то, что тот лишил его удовольствия прострелить несколько банок. В ответ Ларри сказал, что Гарри должен ему еще больше денег по тем же причинам. Они стали спорить кто кому сколько должен, но никто из них не помнил сколько банок было в начале, а искать простреленные банки по всей округе было неохота. Каждый из них помнили только, сколько банок прострелил он сам. Определите по этим данным, сколько банок не прострелил Гарри и сколько банок не прострелил Ларри. Заранее спасибо.

Answer 1

Если ты сдаешь эту задачу на сайт acmu.ru или acmp.ru:
var a, b: longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a, b);
write(b - 1, ' ', a - 1);
end.

А, если ты её просто учителю показываешь:
var a, b: longint;
begin
write('Сколько банок прострелил Гарри? ');
readln(a);
write('Сколько банок прострелил Ларри? ');
readln(b);
writeln('Гарри не прострелил ', b - 1, ' банок');
writeln('Ларри не прострелил ', a - 1, ' банок');
end.