Program P1;
uses
Graph,Crt;
var
d,m,i,k : integer;
x,y,x0,y0,r : integer;
a,b : real;
begin
PRINT "Привет!"
Если вместо текста выводятся каракули, то это проблема кодировки.
program n_1;
uses crt;
var
n: longint;
k: integer;
function Sym(n: integer): char;
begin
case n of
0..9: Sym := chr(48 + n);
10..36: Sym := chr(55 + n);
end;
end;
function funct(n: longint; k: integer): string;
var
st: string;
begin
st := '';
if n = 0 then st := '0' else
begin
while n >= 1 do
begin
st := Sym(n mod k) + st;
n := n div k;
end;
end;
DecToX := st;
end;
begin
readln(n);
repeat
readln(k);
until (2 <= k) and (k <= 36);
writeln(funct(n, k));
end.
<h3>Без проблем :</h3>
берём и делим это число на несколько групп, которые будут состоять из 3 цифр - имея 10101101 - получаем : 010 101 101 (приписали 0 к 010 для того чтобы нам было удобно) , ищем числа по табличке переводов из 2 в 8 сс - выводим , что 010 - это 2 , а 101 -это 5
<h2>В итоге мы скрепляем все эти числа получаем ответ : 255</h2>
Содержавать документы и др приложения