Программирование (Питон решить эти задания:1. Вывести на экран все четырехзначные числа по 5 в строке2. Дано натуральное число n. Вычислить |a1|*|a2|*|a3|...|an|3. Вычислить следующую последовательность 1-1/2+1+3...+1/9999-1/100004. Вычислить сумму, умножение та количество чисел кратных Х на промежутке [m;n]5. Ввести с клавиатуры n любых чисел. НАйти среднее арифметическое однозначных.

1:

for i in range (1000,10000):

i = str(i)

if int(i[3]) % 5 == 0:

print()

print(int(i), end=' ')

2:

n = int(input())

summ = 1

for i in range(1, n + 1):

summ *= abs(i)

print(summ)

3:

i = 1

a = 0

while(i <= 9999):

a += 1 / i

i += 2

i = 2

b = 0

while(i <= 10000):

b += 1 / i

i += 2

print(a - b)

4:

x, m, n= map(int, input().split())

summ = 1

for i in range(m,n+1):

if i % x == 0:

summ *= i

print(summ)

5:

lst = [int(i) for i in input().split()]

count = 0

summ = 0

for i in lst:

if len(str(i)) == 1:

count += 1

summ += i

print(summ / count)

Решить можно обратным ходом т.е. провести все вычисления в обратном порядке:
Предположим что число 62 мы таки получили,тогда пред последним шагом было либо умножение, либо перестановка цифр; рассмотрим два случая:
1)Если перестановка, то:
перед ней было число 26
если его тоже получили путем перестановки получается замкнутый круг, следовательно оно получило умножением из 13-нечетное 31(перестановка) тоже нечет - противоречие.
2)Если 62 получили умножением то:
Раньше было число 31-нечетное и если пере ставить цифры то 13-тоже нечетное, следовательно случай тоже невозможен.
ответ: число 62 из единицы получить нельзя

program raf105;

var iq,n,x,i,choco,choco_counter,kid_counter: integer;

begin

write('Введите количество детей в детском саду: ');

readln(n);

write('Введите желаемый IQ: ');

readln(x);

writeln('Вводите IQ ',n,' детей по очереди.');

for i:=1 to n do

begin

 readln(iq);

 if iq >= x

   then begin

     if choco div 228 < 1

       then begin

         choco_counter+= 1;

         choco+= 1337;

       end;

     choco-= 228;

     kid_counter+= 1;

   end;

end;

writeln('Награду получат ',kid_counter,' дет.');

writeln('Шоколада потребуется приобрести: ',choco_counter,' плит.');

end.

PascalABC 3.4.2