Відповідь:
Відповідь:procedure TForm1.Button2Click (Sender: TObject);
var a: array [1..10] of integer; i, j, min, nmin: integer;
begin
for i : 1 to 10 do
a[i] : StrToInt (Memo1.Lines[i-1]);
for i : 1 to 9 do
begin
min : a[i];
nmin : i;
for j : i+1 to 10 do
if a[j] < min then
begin
min : a[j]; nmin : j;
end;
a[nmin] : a[i];
a[i] : min;
end;
Memo2.Lines.Clear;
for i : 1 to 10 do
Memo2.Lines.Append (IntToStr (a[i]))
end;
Пояснення:
Початкову суму грошей помножити на А*N
Объяснение:
def amount(a, b):
if b > 0:
a += 1
b -= 1
return summ(a, b)
else:
return a
n = int(input())
m = int(input())
print(summ(m, n))
Сначала проверяется условие b > 0. Это базовый случай, то есть случай, когда рекурсия заканчивается. Потом идёт присваивание первому числу единицы, а из b она вычитается. Прибавление единицы числу a будет ровно b раз, то есть к числу а прибавится значение числа b. И когда уже b равно нулю, то происходит выход из рекурсии, и функция возвращает число a, то есть сумму чисел a и b.
Програмка не работает с отрицательными числами, мне лень думать :3
