//Вот программа, которая кодирует слова в системах счисления от 2 до 10 //Первый ввод - число, второй - система счисления //Pascal ABC.NET v3.0
var a,i,b,r,n,j,bug:integer; s,se,slo,slof:string;
procedure preob(var a,b,n:integer; var se:string); begin repeat b:=a mod n; a:=a div n; str(b,se); s+=se; until (a<=n-1); end;
begin readln(slo); readln(n); for j:=1 to length(slo) do begin; a:=ord(slo[j]); preob(a,b,n,se); str(a,se); s+=se; for i:=1 to length(s) div 2 do begin; se:=s[i]; s[i]:=s[length(s)-i+1]; s[length(s)-i+1]:=se[1]; end; write(s,'-'); slof:=slof+s; delete(s,1,length(s)); end; end.
//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-
k = int(input('Начало диапазона ')) n = int(input('Конец диапазона ')) a = [0] * n # создание массива с n количеством элементов for i in range(n): # заполнение массива a[i] = i a[1] = 0
m = 2 # замена на 0 начинается с 3-го элемента
while m < n: # перебор всех элементов до заданного числа if a[m] != 0: j = m * 2 while j < n: a[j] = 0 j = j + m m += 1
# вывод простых чисел на экран b = [] for i in a: if a[i] != 0 and i >= k: b.append(a[i])
del a print(b)
Задание №2
count = 0 for i in range(13): for j in range(11): for k in range(9): if 185 == i*15+j*17+k*21: count += 1 print(i,j,k) print('Всего
Задание №3
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
//Первый ввод - число, второй - система счисления
//Pascal ABC.NET v3.0
var
a,i,b,r,n,j,bug:integer;
s,se,slo,slof:string;
procedure preob(var a,b,n:integer; var se:string);
begin
repeat
b:=a mod n;
a:=a div n;
str(b,se);
s+=se;
until (a<=n-1);
end;
begin
readln(slo);
readln(n);
for j:=1 to length(slo) do
begin;
a:=ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
write(s,'-');
slof:=slof+s;
delete(s,1,length(s));
end;
end.
//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-
k = int(input('Начало диапазона '))
n = int(input('Конец диапазона '))
a = [0] * n # создание массива с n количеством элементов
for i in range(n): # заполнение массива
a[i] = i
a[1] = 0
m = 2 # замена на 0 начинается с 3-го элемента
while m < n: # перебор всех элементов до заданного числа
if a[m] != 0:
j = m * 2
while j < n:
a[j] = 0
j = j + m
m += 1
# вывод простых чисел на экран
b = []
for i in a:
if a[i] != 0 and i >= k:
b.append(a[i])
del a
print(b)
Задание №2
count = 0
for i in range(13):
for j in range(11):
for k in range(9):
if 185 == i*15+j*17+k*21:
count += 1
print(i,j,k)
print('Всего
Задание №3
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