1) 1214
разделяем на 2 числа 12 и 14, НОК чисел равен 2
получаем 12=6*2
14=7*2, значит трёхзначное число может быть 627 или 726
program zadacha;
var
a:integer;
begin
read(a);
if (a>=10)and(a<=20)then
write('Принадлежит')
else
write('Не принадлежит')
end.
program raf105;
var
a:array[1..10] of integer;
x,i,c: integer;
begin
writeln('Заполните массив:');
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10-1 do
if ((a[i]+a[i+1]) mod 2 = 0) and ((a[i]+a[i+1]) mod 4 <> 0)
then c+= 1;
writeln('Вывод: ',c);
end.
<h3><u>PascalABC 3.4.2</u></h3>
def f():
result = []
for i in range(100, 10000):
str_num = str(i)
num = sum([int(x) ** len(str_num) for x in str_num])
if num == i:
result.append(i)
return result