# Python 3.X
sym = {10: 'A', 11: 'B', 12: 'C', 13: 'D', 14: 'E', 15: 'F'}
def exp_in(n, g):
ret = 1
while n ** ret < g:
ret += 1
return ret - 1
def base(n, to_base):
''' 2 <= to_base <= 16 '''
if not 2 <= to_base <= 16:
raise ValueError('2 <= to_base <= 16')
ret = ''
for e in range(exp_in(to_base, n), -1, -1):
t = to_base ** e
c = n // t
ret += sym.get(c, str(c))
n %= t
return ret
n, b = [int(input(x)) for x in ['Число: ', 'Степень (2 <= n <= 16): ']]
print('{} (10) = {} ({})'.format(n, base(n, b), b))
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
function IsHamming(n:integer):boolean;
begin
while n mod 2 = 0 do n:=n div 2;
while n mod 3 = 0 do n:=n div 3;
while n mod 5 = 0 do n:=n div 5;
Result:=(n=1)
end;
begin
var n:=ReadInteger('n=');
var s:int64:=0;
var k:=0;
var i:=2;
while k<>n do begin
if IsHamming(i) then begin
Inc(k); s+=i; Print(i)
end;
Inc(i)
end;
Writeln(NewLine,'Сумма элементов последовательности равна ',s);
n:=ReadInteger('Найти элемент с номером');
i:=2; k:=0;
while k<>n do begin
if IsHamming(i) then Inc(k);
Inc(i)
end;
Writeln('Найденное значение: ',i-1)
end.
<u><em>Тестовое решение:</em></u>
n= 33
2 3 4 5 6 8 9 10 12 15 16 18 20 24 25 27 30 32 36 40 45 48 50 54 60 64 72 75 80 81 90 96 100
Сумма элементов последовательности равна 1257
Найти элемент с номером 1000
Найденное значение: 51840000
1
var a, b, c, max: integer;
begin
readln(a, b, c);
if ((a <> b) and (a <> c)) then
begin
if (a >= b) then
max := a
else
max := b;
if (c > max) then
max:=c;
a:=max; b:=max; c:=max;
writeln(a,' ',b,' ',c);
end
else
writeln(sqr(a)+sqr(b)+sqr(c));
readln;
end.
2. uses GraphABC;
begin
Pie(100, 50, 70, 270, 360);
<span>end.
3. </span>uses GraphABC;
begin
Draw(x -> 2 * cos(x), -pi, pi);
<span>end.
4. </span>uses GraphABC;<span>
begin
Draw(x -> cos(x), -10, 10);
Draw(x -> sin(x), -8, 8);
<span>end.
</span>5. </span>uses GraphABC;
begin
Brush.Color := clRandom;
Pie(200, 200, 100, 0, 170);
Brush.Color := clRandom;
Pie(200, 200, 100, 170, 270);
Brush.Color := clRandom;
Pie(200, 200, 100, 270, 300);
Brush.Color := clRandom;
Pie(200, 200, 100, 300, 330);
Brush.Color := clRandom;
Pie(200, 200, 100, 320, 333);
Brush.Color := clRandom;
Pie(200, 200, 100, 333, 360);
<span>end.
С цветами, думаю, сам разберешься</span>
