2й пункт. z=
вычислить значения выражения по формуле(все переменные принимают
вещественные значения):

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами  

ответ:

n, m, t = map(int,

 

x = list(map(int,

 

 

def build(name):

    if name in built:

        pass

    elif b[a.index(name)] == ["0"]:

        built.append(name)

    else:

        for i in b[a.index(: ]:

            if i not in built:

                build(i)

        built.append(name)

 

 

a = []

b = []

built = []

 

for i in range(0, n):

    a.append(

    b.append(

 

for i in range(0, b.:

    built.append(a[b.

    a.pop(b.

    b.pop(b.

 

 

[build(str(o)) for o in x]

 

print(len(built))

объяснение: