Question

Решить через рекурсию в pascal. у первоклассника пети m рублей. мороженое стоит k рублей. петя решил наесться досыта мороженого, для этого он покупал по одному мороженому и съедал ее до тех пор, пока ему хватало денег. как пете узнать, сколько денег останется у него в конце концов? учтите, что петя делить еще не умеет, а умеет только вычитать и складывать. сколько мороженых он может съесть?

Answer 1

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.

Answer 2

var m,k,r:integer;
Function buy(m,k : integer) : Integer;
begin;
  If m>k then Buy:=1+buy(m-k,k) else Buy:=0;
end;

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