Партнерка на США и Канаду по недвижимости, выплаты в крипто

  • 30% recurring commission
  • Выплаты в USDT
  • Вывод каждую неделю
  • Комиссия до 5 лет за каждого referral


program  varl;

function st(s:real; n:integer):real;

var

l:integer;

p:real;

begin

  p:=1;

  for l := 1 to abs(n) do p:=p*s;

  if n<0 then p:=1/p;

  st := p ;

end;

var d, k1,k2:real;

  s1,s2:real;

  mes, i:byte;

begin

readln(d, mes);

s1:= d* st(1.1,mes) *st(0.98,mes);

s2:=d;

for i:= 1 to mes do

begin

  s2:=s2*1.1*0.98;

end;

write(s1,' ',s2);

writeln;

writeln('число 5 в степени -2 =', st(5,-2));

end.

{Пользовательская функция st}

st имя функции и ячейка для результата

типа real

s:real; n:integer – два входных параметра для передачи фактических значений (формальные параметры)

функция возведения в целую (положительную либо отрицательную) степень  любого числа (вещественного)

Начало основной программы: В банк кладется некоторая сумма денег (D).

Вычисляется: Сколько будет получено за целое количество лет с 10% прибыли с 2% инфляции.

Фактические параметры

1 способ (использование пользовательской функции) - s1

2 способ (без нее)  - s2 

Для сравнения выводятся оба варианта

Использование функции непосредственно в команде вывода