Задается положительное целое число n. нужно вывести произведение его цифр формат входных данных первая строка входного файла содержит ровно одно положительное число n (1< =n< = 10^100)

PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var s:=ReadLines('data.txt').First.Select(t->t.ToDigit)

     .Aggregate(BigInteger(1),(a,b)->a*b).Println

end.

Пример

10057531504895395788703629698793031096713606951075840000000000000

Файл data.txt дан во вложении

Программа:

Python:

import turtle

# большой круг (нижний):

turtle.color("black") # устанавливаем цвет  

turtle.penup() # поднимаем курсор

turtle.goto(0, -100) # переходим по координатам

turtle.pendown() # опускаем курсор

turtle.circle(90) # рисуем круг с радиусом 90

# средний круг(посредине):

turtle.color("black")  

turtle.penup()  

turtle.goto(0, 80)  

turtle.pendown()  

turtle.circle(60)

# маленький круг (верхний):

turtle.color("black")

turtle.penup()

turtle.goto(0, 200)  

turtle.pendown()

turtle.circle(35)

 

turtle.done()

Программа:

Python:

№1)

arr = []

n, j = int(input()), 0

while n != 0:

   arr.append(n)

   n = int(input())

for i in arr:

   if i > (sum(arr)/len(arr)):

       j += 1

print(f'{arr}\n{j}')

№2)

from random import randint

arr = [randint(-100, 100) for i in range(10)]

print(arr)

summ = 0

for i in range(10):

   n = int(input())

   arr.append(n)

   summ += n

print(arr)

for i in arr:

   if i > summ: print(i, end=' ')

№3)

from random import randint

N = int(input('N = '))

arr = [randint(-100, 100) for i in range(N)]

print(arr)

for i in range(N):

   j = int(input())

   arr.append(j)

print(arr)

razn, summ = max(arr) - min(arr), 0  

for i in arr:

   if i > razn:

       summ += i

print(summ)