Во вложении
спрашивайте, что непонятно
Заполни ячейки A2, B2, C2
Sub Calculate() 'Начало процедуры
Dim deposit As Integer 'величина вклада
Dim period As Integer 'срок вклада
Dim percent As Integer 'годовая процентная ставка
Dim day_percent As Double 'ежедневная процентная ставка
Dim profit As Double 'доход
Dim result As Double 'итог
deposit = Cells(2, 1).Value 'присваиваем величине вклада значение ячейки А2
period = Cells(2, 2).Value 'присваиваем сроку вклада значение ячейки B2
percent = Cells(2, 3).Value 'присваиваем годовой процентной ставке значение ячейки C2
day_percent = period * percent / 365 'ежедневная процентная ставка = срок вклада (умножаем) на годовую процентную ставку и (делим) на 365 дней
profit = deposit * day_percent / 100 'доход = величина вклада (умножаем) на ежедневную процентную ставку и (делим) на 100%
result = deposit + profit 'Итог = величина начального вклада (плюс) доход
Cells(6, 3).Value = profit 'заносим доход в ячейку C6
Cells(7, 3).Value = result 'заносим итог в ячейку C7
End Sub 'Конец процедуры
Тебе нужно ввести число 2 в степени N.
Но по условию задачи (просто эта задача находится у нас в dots) это число может быть равно 25. А число 2 в 25 степени довольно большое.
Поэтому единственное что осталось написать - это алгоритм возведения N в квадрат (но длинной арифметикой).
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (xa,ya):=ReadReal2('Введите координаты х и у точки А:');
var (xb,yb):=ReadReal2('Введите координаты х и у точки B:');
Writeln('Длина отрезка АВ равна ',Sqrt(Sqr(xb-xa)+Sqr(yb-ya)))
end.
<u>Пример</u>
Введите координаты х и у точки А: 3.7 -2.96
Введите координаты х и у точки B: 11 8.4
Длина отрезка АВ равна 13.503318110746