Паскаль. программы с циклом алкоголь вредит вашему - вопрос №14519895 от nikputen 19.05.2020 23:37

Question

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

nikputen · Answer

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.