Help! число в троичной системе счисления заканчивается на 2. какие это числа в десятичной системе счисления не превышающие 50? напишите подробно : )

Обратим внимание, что в вопросе указана цифра два, являющаяся последней из цифр, которые используются в троичной системе счисления (0,1,2). следующей за ней по порядку снова будет ноль, т.е. следующее число окажется кратным трем - основанию троичной системы. но эта кратность трем также сохранится в любой системе счисления с основанием, превышающим три. поэтому в десятичной системе счисления искомые числа будут последовательностью, в которой каждое число равно кратному трем за вычетом единицы: это общее выражение порождает ряд 2, 5, 8, .. 47, 50 при k=1,2,,17

Арифметическая прогрессия с 2 до 50 с шагом 3. то есть: 2, 5, 8, 11, 14 44, 47, 50. так как все числа заканчивающиеся на 2 в троичной это: 2, 12, 22, 102, 112, 122, 202 и т.д. а эти числа равны верхней прогрессии, записанной в десятеричной системе. если делать соответствие, получается так: троичная: 2, 12, 22, 102, 112, 122, 202, 212, 222, 1002, 1012, 1022, 1102, 1112, 1122, 1202, 1212. десятеричная: 2, 5, 8, 11, 14, 17, 20, 23, 26, 29, 32, 35, 38, 41, 44, 47, 50.

//pascal abc.net 3.1 сборка 1256 //1 const   n=3;   m=4;   var   ma: array[1..n,1..m] of real;   ar: array[1..n] of real; i,j: integer; s: real; begin randomize; s: =0; writeln('matrix: '); for i: =1 to n do   begin   for j: =1 to m do     begin     ma[i,j]: =random(10);     write(ma[i,j]: 4);     s: =s+ma[i,j];     end;   ar[i]: =s;   s: =0;   writeln;   end; writeln('res: '); for i: =1 to n do   writeln(i,': ',ar[i]); end. //2 var   se: set of char;   s: string;   i,r1,r2: integer; begin se: =['а','е','у','о']; readln(s); s: =s.trim; i: =1; while i< length(s) do if (s[i]=' ') and (s[i+1]=' ') then delete(s,i+1,1) else inc(i); var ars: =s.split; for i: =1 to length(s) do   begin   if ((ordansi(lowcase(s[i]))> =65) and (ordansi(lowcase(s[i]))< =90)) or ((ordansi(lowcase(s[i]))> =97) and (ordansi(lowcase(s[i]))< =122)) or ((ordansi(lowcase(s[i]))> =128) and (ordansi(lowcase(s[i]))< =175)) or ((ordansi(lowcase(s[i]))> =224) and (ordansi(lowcase(s[i]))< =243)) then inc(r1);   if lowcase(s[i]) in se then inc(r2);   end; writeln('количество букв: ',r1); writeln('количество слов: ',ars.length); writeln('количество гласных из множества: ',r2); end. пример ввода: просто текст пример вывода: количество букв: 11 количество слов: 2 количество гласных из множества: 3

//pascal abc.net 3.1 сборка 1256 var   s: string;   se1,se2: set of char;   i: integer; begin se1: =['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','_']; se2: =['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','_','0','1','2','3','4','5','6','7','8','9']; readln(s); if not(lowcase(s[1]) in se1) then   begin   writeln('не идентификатор');   exit;   end; for i: =2 to length(s) do if not(lowcase(s[i]) in se2) then   begin   writeln('не идентификатор');   exit;   end; writeln('идентификатор'); end. пример ввода: _someidentificator пример вывода: идентификатор