Гумага? может гумаба? Если да, то: бумага, телевидение, музыка, книга.
Правило шифровки описывать надо?
<h2> # №1
</h2>
a = int(input('a = '))
b = int(input('b = '))
c = int(input('c = '))
for i in range(a,b+1):
if i % c == 0:
print(i)
<h2> # №2
</h2>
sum = 0
for i in range(1,50):
if (i % 2 != 0) and (i > 0):
sum += i
print('Сумма: ',sum)
<h2> # №3
</h2>
sum = 0
a = int(input('a = '))
b = int(input('b = '))
for i in range(a, b+1):
if (i % 4 == 0) and (i > 0):
sum += i
print('Сумма: ',sum)
<h2> # №4
</h2>
for i in range(1000, 9999+1):
if (i % 133 == 125):
print(i)
<h2> # №5
</h2>
a = int(input('Введите число: '))
sum = 0
for i in range(1,a+1):
if a % i == 0:
sum += i
print('Сумма его делителей: ',sum)
<h2> # №6
</h2>
a = int(input('Введите число: '))
counter = 0
for i in range(1,a+1):
if (a % i == 0) and (i % 2 == 0):
counter += 1;
print('Количество его нечётных делителей: ',counter)
<h2> # №7
</h2>
print('Вводите 8 чисел по очереди')
sum = 0
for i in range(1,8+1):
a = float(input())
if a > 10.75:
sum += a
print('Сумма чисел больше 10.75: ',sum)
<h2> # №8</h2>
a = int(input('Введите количество целых чисел: '))
n = int(input('Введите число, на которое нужно делить: '))
print('Вводите целые числа')
sum = 0
for i in range(1,a+1):
x = int(input())
if x % n == 0:
sum += x
print('Сумма чисел кратных',n,':',sum)
<em>// PascalABC.NET 3.3, сборка 1633 от 10.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),0,15); a.Println;
a.Where(t->t>a.First).Println
end.
<u>Пример</u>
n= 15
8 8 9 3 5 10 12 4 1 8 8 6 13 7 6
9 10 12 13
<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadlnString;
var (m,n):=ReadInteger2('Введите через пробел m и n:');
Swap(a[m],a[n]); a.Println;
end.
<u>Пример</u>
Информатика
Введите через пробел m и n: 5 2
Ирфонматика
Схема в файле. Ответ: Щегол Костя живёт в клетке №1.