У школьников было S рублей. Бутылка с соком стоит P рублей, пустая бутылка стоит B рублей.Напишите программу, вычисляющую, сколько бутылок сока могут выпить ученики, если они сдают пустые бутылки и на вырученные деньги и на деньги, оставшиеся от предыдущей покупки, покупают бутылки с соком. (На Паскале)
More Questions From This User See All
Answers & Comments
program zadacha_1;
var
s, p, b : real;
n : integer;
begin
n := 0;
writeln('Введите количество денег у школьника пример:(10.00)');
read (s);
writeln('Введите стоимость сока пример:(10.00');
read (p);
writeln('Введите стоимость бутылки пример:(10.00');
read (b);
while s>=p do
begin
n := n + 1;
s := s - p;
s := s + b;
end;
writeln('Можно купить ', n, ' бутылок сока.');
end.