Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

У школьников было S рублей. Бутылка с соком стоит P рублей, пустая бутылка стоит B рублей.Напишите программу, вычисляющую, сколько бутылок сока могут выпить ученики, если они сдают пустые бутылки и на вырученные деньги и на деньги, оставшиеся от предыдущей покупки, покупают бутылки с соком. (На Паскале)

Ответ оставил Гость

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.