// PascalABC.NET 3.3, сборка 1540 от 16.09.2017 // Внимание! Если программа не работает, обновите версию!
begin var n,p:integer; var s:string; for var a:=1 to 9 do for var b:=0 to 9 do for var c:=0 to 9 do begin n:=100*a+10*b+c; s:=(n*n).ToString.Right(3); p:=Pos(a.ToString,s); if p>0 then begin Delete(s,p,1); p:=Pos(b.ToString,s); if p>0 then begin Delete(s,p,1); if s=c.ToString then Write(n,'(',n*n,')',' ') end end end end.
Результат 205(42025) 376(141376) 421(177241) 625(390625) 963(927369)
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
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
// Внимание! Если программа не работает, обновите версию!
begin
var n,p:integer;
var s:string;
for var a:=1 to 9 do
for var b:=0 to 9 do
for var c:=0 to 9 do begin
n:=100*a+10*b+c;
s:=(n*n).ToString.Right(3);
p:=Pos(a.ToString,s);
if p>0 then begin
Delete(s,p,1);
p:=Pos(b.ToString,s);
if p>0 then begin
Delete(s,p,1);
if s=c.ToString then Write(n,'(',n*n,')',' ')
end
end
end
end.
Результат
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)