1. Информатика
  2. Решить через рекурсию в pascal.

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

nikitakyznecov703 nikitakyznecov703    2   09.07.2019 12:10    5

Ответы
wawking86rus wawking86rus  02.10.2020 23:27
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.
ПОКАЗАТЬ ОТВЕТЫ
hatidzemustafaeva hatidzemustafaeva  02.10.2020 23:27
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Макоська Макоська  14.04.2020 18:57
Добавьте раздел Список литературы и интернет-ресурсов и включите в него перечень источников информации,которыми вы пользовались при подготовке реферата...
LitunIlya LitunIlya  14.04.2020 18:57
Представлять алгоритм в словесной форме​...
юля15102 юля15102  28.04.2021 20:00
проблемы с node Error: Cannot find module vk-io Require stack: - C:\Windows\system32\index.js [90m at Function.Module._resolveFilename (node:internal/modules/cjs/loader:940:15)[39m...
annatiko1984 annatiko1984  28.04.2021 20:00
Рисуем на координатной плоскости Птичка1) (-9; 7), (-7; 8), (-6; 10), (-3; 10), (-1; 7), (8; 1), (15; -2), (13; -4), (6; 0), (4; -1),(3;-1), (1; -7),(-1; -7), (1; -6), (2; -1),...
CBeTouD CBeTouD  28.04.2021 20:01
Для какого из следующих слов истинно высказывание: НЕ(первая буква гласная) И(вторая буква согласная) И(предпоследняя буква согласная)? 1)азавак 2) шнауцер 3) слюги 4) уиппет...
Gaxling Gaxling  26.01.2022 20:15
Написать код в программе на ЯП Java. Последовательность 1,1,2,3,5,8,... состоит из чисел Фибоначчи. Каждый элемент, начиная с третьего, равен сумме двух предыдущих. Найдите...
Diman4ik355 Diman4ik355  26.01.2022 20:20
Ребята с этим сделайте только B другие уже сделал а эту не смог B где на самом внизу...
Emmaskr Emmaskr  24.04.2022 13:42
Дан целочисленный массив с кол во элементов н вывести по убыванию только те числа индексы которых не чётные язык программирования паскаль...
охххмирон228 охххмирон228  24.04.2022 12:59
Какую структуру имеет база данных, содержащая сведения о студентах, участвующих в научно-исследовательских работах? а) сетевую; б) иерархическую; в) древовидную; г) списочную....
svetakovalchuk svetakovalchuk  24.04.2022 12:48
Прочитай. Найди лишнее предложение. Почему оно лишнее? Запиши лишнее предложение в окне добавить ответ Поле. Просыпайся. Вставай. Новый день на дворе. Выйди в поле: кого там...

Популярные вопросы