Question

Паскаль. программы с циклом алкоголь вредит вашему здоровью. Бутылка пива стоит a рублей. Пустые бутылки можно сдать за b рублей. Студенты одной группы решили отпраздновать окончание сессии и собрали на всех s рублей. Пользователь вводит три целых числа a, b и s. Программа находит, какое максимальное количество бутылок с пивом смогут купить студенты. Например, если а=45, b=20, s=300, то ответ равен 11.

Answer 1

program dchigrikova;

var a, b, s, i, o: real;

begin

write('Бутылка пива стоит - ');

readln(a);

write('Бутылку можно сдать за - ');

readln(b);

write('Количество денег на группу - ');

readln(s);

while s > a do

 begin

   i:=trunc(s/a);

   o+=i;

   s:=i*b+s-a*i;

 end;

write('Ответ: ', o)

end.

Answer 2

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

pascalCopy code
program MaxBeerBottles;

var
  a, b, s, maxBottles, remainingMoney, bottlesBought, bottlesFromEmpty: integer;

begin
  write('Введите стоимость бутылки пива (a): ');
  readln(a);

  write('Введите стоимость сдачи пустой бутылки (b): ');
  readln(b);

  write('Введите количество денег (s): ');
  readln(s);

  maxBottles := s div a;  // Максимальное количество бутылок, которое можно купить на имеющиеся деньги
  bottlesBought := maxBottles;  // Изначально считаем, что все бутылки куплены
  remainingMoney := s - maxBottles * a;  // Оставшиеся деньги после покупки максимального количества бутылок

  while remainingMoney >= a do
  begin
    bottlesFromEmpty := remainingMoney div b;  // Количество бутылок, которое можно получить со сдачи
    bottlesBought := bottlesBought + bottlesFromEmpty;  // Увеличиваем общее количество бутылок
    remainingMoney := remainingMoney - bottlesFromEmpty * b + bottlesFromEmpty * a;  // Пересчитываем оставшиеся деньги
  end;

  writeln('Максимальное количество бутылок с пивом:', bottlesBought);
end.

Программа запрашивает у пользователя значения a, b и s, затем вычисляет максимальное количество бутылок с пивом, которое можно купить с заданными деньгами, учитывая сдачу за пустые бутылки.