задача на PAscal, подсчет

[essacer]

запрашивающую с клавиатуры два натуральных числа К и М и печатающую минимальную сумму денег, при которой в пятницу семья сможет купить хотя бы одну бутылку лимонада.
Данная процедура повторялась каждый день, пока была возможность

нужна помощь

[BDA]

Из приведенного условия ничего не понятно.

[Sciv]

ReadLn(K,M);
count:=0;
x:=0;
While K>=M do begin 
  k:=k-m;
  x:=x+m;
  inc(count);
end;
WriteLn('Лимонад пили по 1 бутылке ',count,' Дней');
WriteLn('Потрачено ',x,' денег');
writeLn('Семейного общака осталось: ', k,' денег');

[Serge_Bliznykov]

Sciv, да Вы телепат, однако!!
Или Вы поиском нашли аналогичную задачу, где условие не является усечённо-сокращённым вариантом нормального условия задачи?!

p.s. переменная x избыточна: число потраченных денег легко даст произведение count * m


p.p.s думаю, забавные будут результаты работы данной программы, если ввести отрицательное значение M

[Sciv]

Sciv, да Вы телепат, однако!!

Постновогоднее обострение Последствия праздников

p.s. переменная x избыточна: число потраченных денег легко даст произведение count * m

знаю, но ведь нужен подсчет

p.p.s думаю, забавные будут результаты работы данной программы, если ввести отрицательное значение M

это на совесть топикстартера, сколько он денег этой лимонадной семейке выделит