Question

8. Свою первую стипендию Ксюша потратила на любимые шоколадки. Сколько штук она купила? Значение стипендии и стоимость одной шоколадки известно (запрашивается у пользователя).

РЕШИТЬ В ПАСКАЛЬ (ПОМОГИТЕ ПОЖАЛУЙСТА)

Answer 1

program andreykapan2004;

var x, y: double;

   k: Integer;

begin

write('Свою первую стипендию Ксюша потратила на любимые шоколадки. Сколько штук она купила?');

writeln('Значение стипендии и стоимость одной шоколадки известно (запрашивается у пользователя).');

writeln;

writeln('Какова стипендия Ксюши?');

readln(x);

writeln;

writeln('Какова стоимость одной шоколадки, которую хочет купить Ксюша?');

readln(y);

writeln;

k := 0;

while (x >= 0) do

begin

 k := k + 1;

 x := x - y;

end;

writeln('Ксюша купила ', k - 1, ' шоколадок.');

readln;

end.