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

Помогите пожалуйста решить задачу через РЕКУРСИЮ в Pascal.
У первоклассника Пети m рублей. Мороженое стоит k рублей. Петя решил наесться досыта мороженого, для этого он покупал по одному мороженому и съедал ее до тех пор, пока ему хватало денег. Как Пете узнать, сколько денег останется у него в конце концов? Учтите, что Петя делить еще не умеет, а умеет только вычитать и складывать. Сколько мороженых он может съесть?

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

Var m,k,r:integer;
procedure buy(var m,k,r:integer);
begin;
if k<=m then
begin;
m:=m-k;
inc(r);
buy(m,k,r);
end;
end;

begin;
write(Введите сколько у Пети рублей:);
readln(m);
write(Введите стоимость мороженого:);
readln(k);
buy(m,k,r);
write(Всего:,r);
end.