• Помогите пожалуйста решить задачу через РЕКУРСИЮ в Pascal.

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

Ответы 2

  • var m,k,r:integer;procedure buy(var m,k,r:integer);begin;if k<=m thenbegin;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.
    • Автор:

      chaseo4jk
    • 6 лет назад
    • 0
  • 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.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years