Вставьте пропущенное слово: манипуляция, ориентация, взаимодействие, коммуникация, перемещение. – перемещение любых объектов окружающего мира с механических устройств, например рычагов.
определять местоположение с различных датчиков.

у мя сор​

Есть пара неясностей в условии. Если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.

И еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке if k>=4 then write(i:3); уберите знак > .

1 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число N');

for i:= 1 to n do begin

k:=0;

for j:= 1 to i do

if i mod j =0 then k:=k+1;

if k>=4 then write(i:3);

2 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число N');

for i:= 1 to n do begin

k:=0;

for j:= 2 to (i-1) do

if i mod j =0 then k:=k+1;

if k>=4 then write(i:3);

(см. объяснение)

Объяснение:

В прикрепленных файлах приведено решение на python и pascal.

ответом будет число 16.

Задание выполнено!

Скопировать код:

##

function F(n: integer): integer;

begin

 if(n<=18) then F:= n+3

 else if((n>18) and (n mod 3 = 0)) then F:= (n div 3)*F(n div 3)+n-12

 else if((n>18) and (n mod 3 >0)) then F:= F(n-1)+n*n+5;

end;

var k: integer := 0;

for var i: integer := 1 to 800 do

begin

 var t: integer := 1;

 foreach var c: char in F(i).ToString do

   if(Integer.Parse(c) mod 2 > 0) then

   begin

     t:= 0;

     break;

   end;

 if(t=1) then k:= k+1;

end;

print(k);

def f(n):

   if n <= 18:

       return n + 3

   elif n > 18 and n % 3 == 0:

       return (n // 3) * f(n // 3) + n - 12

   elif n > 18 and n % 3 > 0:

       return f(n - 1) + n * n + 5

k = 0

for p in range(1, 801):

   e = 1

   for s in str(f(p)):

       if int(s) % 2 > 0:

           e = 0

           break

   if e == 1:

       k += 1

print(k)