100111 разбиваем на тетрады (по 4 цифры), получаем
0010.0111
считаем по схеме
1 1 1 1
8 4 2 1
0010(2)=2(16)
0111(2)=7(16)
100111(2)=27(16)
ОТВЕТ:
Var a, d, n, i, otv: integer;
begin
read(a,d,n); <em>- ввод всех значений</em>
otv:=a; <em> - в переменную где будет храниться </em>
for i:=1 to n do <em>ответ записываем начальный взнос</em>
begin
a:=a+d; <em>- увеличиваем в цикле взнос</em>
otv:= otv + (a); <em> - добовляем взнос к нашему ответу</em>
end;
writeln(otv); <em> - выводим ответ</em>
end.
Var
s: Int64;
i, n: byte;
begin
readln(n);
for i := 1 to n do
s += i;
writeln(s);
end.
Стандартной функции, на сколько я знаю, нет, вот пример "самодельной" функции, возводящей число x в степень y:
function pow(x, y : integer) : integer;
var i, res : integer;
begin
res := 1;
for i:=1 to y do res := res*x;
pow := res;
end;