1. age=6 b="дошкільня" if age >= 1 and age<6: print(b) 2age=6 b="дитина" if age>0 and age<6 or age >= 6 and age<18 : print(b) 3.a=13 if a > 12 and a <= 27: a=a+1 if a<5: a=a+12 else: a=a-7 4.a=12 if a > 12 and a <= 27: a=a+1 if a<5: a=a+17 if a >= 12 or a <= 19: a=a+1 5.a=17 if a<7: a=7 6.a=10 if a>5: a=17 7.a=11 if a<5: a=a+12 else: a=a-7 8.a=10 if a<15: a=a+12 else: a=a-7 9.a=10 if a<15: a=a+12 else: a=a-7 print(a) 10.a=10 if a<5: a=a+12 else: a=a-7 if a<5: a=a+12 else: a=a-7

В восьмеричную
2005 : 8 = 250, остаток 5
250 : 8 = 31, остаток 2
31 : 8 = 3, остаток 7
3 : 8 = 0, остаток 3
Выписываем остатки в обратном порядке: 3725

В пятеричную
2005 : 5 = 401, остаток 0
401 : 5 = 80, остаток 1
80 : 5 = 16, остаток 0
16 : 5 = 3, остаток 1
3 : 5 = 0, остаток 3
Выписываем остатки в обратном порядке: 31010

В двоичную
2005 : 2 = 1002, остаток 1
1002 : 2 = 501, остаток 0
501 : 2 = 250, остаток 1
250 : 2 = 125, остаток 0
125 : 2 = 62, остаток 1
62 : 2 = 31, остаток 0
31 : 2 = 15, остаток 1
15 : 2 = 7, остаток 1
7 : 2 = 3, остаток 1
3 : 2 = 1, остаток 1
1 : 2 = 0, остаток 1
Выписываем остатки в обратном порядке: 11111010101

// PascalABC.NET 3.0, сборка 1128
var
  i,j,k,n,p:longint;
  f:array[1..10,1..2] of longint;
begin
  p:=2; i:=1;
  f[1,1]:=1; f[1,2]:=1;
  Write('Введите натуральное число не больше 2 147 483 647: ');
  Read(n);
  while n<>1 do begin
    if (n mod p)=0 then begin
      if f[i,1]<>p then
      begin Inc(i); f[i,1]:=p; f[i,2]:=1 end
      else Inc(f[i,2]);
      n:=n div p
    end
    else inc(p)
  end;
  k:=i;
  for i:=2 to k do
    for j:=1 to f[i,2] do Write(f[i,1],' ');
  Writeln
end.

Тестовое решение:
Введите натуральное число не больше 2 147 483 647: 37534
2 7 7 383