Школьные кружки - отводим 3 стрелки
1 стрелка - Шахматы
2 стрелка - Шашки
3 стрелка - Танцы
От этих 3 стрелок отводим другие стрелки
От Шахмат Отводим 3 стрелки, которые номеруем от 1 до 3
От шашек отводим 2 стелки и нумеруем от 1 до 2
От Танцев нумеруем от 1 до 3
Переводим в 10-тичную с.с.
3*8^1+3*8^0=3*8+3*1=24+3=27(10)
2*4^1+1*4^0=2*4+1*1=8+1=9(10)
Не верно
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.
Begin
for a:= 1 to 20 do
for b:= 1 to 20 do
for c:= 1 to 20 do
begin
if a*a+b*b=c*c then
writeln(a:4,b:4,c:4);
end;
<span>end.</span>