Перевести целые числа из десятичной системы счисления в троичную: 1)523 2)65 3)7000 4)2307 5)325

523 = 201101; 65=2102; 7000 = 100121021; 2307 = 10011110; 325 = 110001 каждое число делится на 3, остаток от деления записывается, полученное частное опять делится на 3 и т.д. результат получается из цифр  остатков от деления только записанных наоборот: первый остаток от деления будет последней цифрой полученного числа в троичной системе

так как не формализовано выводит последовательно суммы кратных 3 и двухзначных чисел

program tz5; constn=10; vara: array [1..n] of integer; i,b: integer; beginrandomize; for i: =1 to n do begin  a[i]: =random (20);   a[i]: =a[i]-10;               writeln(i,'  ',a[i]); end; b: =0; for i: =1 to n do      if (a[i] mod 3)=0 then            b: =b+a[i]; writeln('summa kratnyh 3m=',b); b: =0; for i: =1 to n do      if abs(a[i]) > 9 then b: =b+a[i]; writeln('summa dvuhznachnyh =',b); readln; end.

Если квадрат натурального числа не превосходит 225, то само это число не может превосходить √225 = 15. алгоритм заносим в переменную res (результат) число 0. оно заведомо меньше любого из натуральных чисел в последовательности. читаем очередное число в последовательности. если оно больше res и при этом не превышает 15, записываем его в res. если оно равно нулю, чтение прекращаем и выводим значение res. var   res,num: integer; begin   res: =0;   repeat       read(num);       if (num> res) and (num< =15) then res: =num   until num=0;   writeln(res) end.