Question

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

Answer 1

program z1;

var  

 La,Ga:integer;

begin

 writeln('введите количество банок, простреленных Гарри и Ларри (через пробел)');

 readln(Ga,La);

 writeln('Гарри не прострелил:',La,' банок');

 writeln('Ларри не прострелил:',Ga,' банок');

end.

Answer 2

Для решения этой задачи на языке Паскаль, вы можете воспользоваться следующим кодом:

pascalCopy code
program Shootout;

var
  TotalBanks, HarryShoots, LarryShoots: Integer;

begin
  // Ввод данных
  Write('Введите количество банок, простреленных Гарри: ');
  Readln(HarryShoots);
  Write('Введите количество банок, простреленных Ларри: ');
  Readln(LarryShoots);

  // Вычисление общего количества банок
  TotalBanks := HarryShoots + LarryShoots - 1;

  // Вычисление не простреленных банок
  Write('Количество банок, не простреленных Гарри: ');
  Write(TotalBanks - HarryShoots);
  Write(', не простреленных Ларри: ');
  Write(TotalBanks - LarryShoots);
end.

Обратите внимание, что мы используем формулу TotalBanks := HarryShoots + LarryShoots - 1, так как оба стрелка простреляли одну и ту же последнюю банку. Затем мы выводим количество не простреленных банок для каждого из них.