Определите функцию write для записи целого неотрицательного числа n (0 ≤ n < 1018) в заданной системе счисления d (2 ≤ d < 36). В качестве ответа необходимо написать всё то, что должно быть в тексте программы перед определением функции main. Саму функцию main писать не нужно.

For example:

Test Result
int main() 55
{ 45
cout << write(45, 8) << endl; 2d
cout << write(45) << endl; 2d
cout << write(45, 16) << endl; 2D
cout << write(45, 16, false) << endl;
cout << write(45, 16, true) << endl;
}

Ресурс:                         Можливості:

Appy Pie                       Створення додатків для Android , iOS , Fire OS.

Mobicommerce            Створення додатків-магазинів для Android

AppYet                          Створення додатків для блогерів, ютуберів за 5 хв

AppsGeyser                  Створення додатків для Android.

Mobincube                    Створення додатків для Android.

Apps Bar                       Створення додатків для Android.

CreateMyFreeApp         Створення додатків для Android і iOS.

Mobiumapps                  Створення додатків-магазинів для Android

Appropio                         Створення додатків для Android і iOS.

GoodBarber                    Створення додатків для Android.

Більше інформації: https://sovety.pp.ua/index.php/ua/onlajn/vebmajstru/3382-onlajn-servisiv-dlya-stvorennya-mobilnikh-dodatkiv

1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969