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.