Var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
<span>end.</span>
Задание №1.
<span>k = int(input('Начало диапазона '))
n = int(input('Конец диапазона '))
a = [0] * n <span># создание массива с n количеством элементов
</span>for i in range(n): <span># заполнение массива
</span> a[i] = i
a[1] = <span>0
</span>
m = 2 <span># замена на 0 начинается с 3-го элемента
</span>while m < n: <span># перебор всех элементов до заданного числа
</span> if a[m] != 0:
j = m * 2
while j < n:
a[j] = 0
j = j + m
m += <span>1
</span>
<span># вывод простых чисел на экран
</span>b = []
for i in a:
if a[i] != 0 and i >= k:
b.append(a[i])
del a
print(b)
Задание №2
</span>
<span>count = <span>0
</span>for i in range(13):
for j in range(11):
for k in range(9):
if 185 == i*15+j*17+k*21:
count += <span>1
</span> print(i,j,k)
print('Всего способов - ', count)
Задание №3
</span>
<span>x = int(input())
print('\n'.join(
str(n) for n in range(x+1)
if all(x != 0 and n % x == 0 for x in map(int, str(n)))))
</span>
<span>переменной A присвоить значение выражения D плюс 9</span>
l=q*t
q=l:t
q=6*256:3 = 512 байт/с или же 4 096 бит/с
в 4 бита информации можно закадировать 16 комбинаций двойки ответ 16 этажей то есть комбинаторика у тебя есть 1 и 0 и четыри позиции для этого значит по формуле замещений это будет 2 в 4 то есть 16