Вкакой системе счисления записаны числа 214=140+24

Впятиричной системе счисления

// pascalabc.net 3.2, сборка 1417 от 28.03.2017// внимание! если программа не работает, обновите версию! function sumd(k: integer): integer; begin  result: =0;   while k> 0 do (result,k): =(result+k mod 10,k div 10)end; function good(k,s: integer): boolean; begin  var p: =1;   while k> 0 do (p,k): =(p*(k mod 10),k div 10);   result: =p=send; begin  var n: =readinteger('n=');   var s: =sumd(n);   range(1,n-1).where(n-> good(n,end. пример n= 44 8 18 24 42

Точно должно работать для pascalabc.net (версия 3.2, сборка 1341). program task; var n,i,kol,sum: integer; //по-хорошему, не integer. потому что мы работаем с натуральными числами, а не отрицательными begin read(n); for i: =1 to n do  begin if (i mod 15)=0 then kol: =kol+1; //15 - это нок(3,5) end; while (n< > 0) do begin sum: =sum+n mod 10; n: =n div 10; end; writeln('количество чисел, делящихся и на 3, и на 5,  равно ',kol); writeln('сумма цифр числа n равна', sum); end. пиши, если что-то не работает или не понятно : )