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