Пользователь вводит любое целое число а. необходимо вывести все целые числа в, для которых а делиться без остатка на в*в и не делиться без остатка на в*в*в

# Код на ruby 2.2.3p173
def zadanie(a)
    p a
    for b in 1..a
        p b if a % b**2 == 0 and a % b**3 != 0
    end
    return a
end

# # Примеры применения
p zadanie(1024)
p zadanie(16)
p zadanie(100)

на Free Pascal

Объяснение:

var

 a : integer;

 n, i, big, nc, ncount  : integer;

begin

 writeln('Введите количество чисел :');

 readln(n);

 big := 0;

 nc := 0;

 ncount := 0;

 for i := 1 to n do begin

   writeln('Введите ', i, ' число:');

   readln(a);

   if a>20 then

     big := big + a;

   if (a mod 2) <> 0 then begin

     nc := nc + a;

     inc(ncount);

   end;

  end;

 writeln('Сумма чисел > 20 = ', big);

 writeln('Среднее арифметическое ',ncount,' нечётных чисел =', nc/ncount:2:2);

end.

1. В СОМ-технологии маршалинг используется для чего?
Для передачи данных по значению между Com объектами
2. В СОМ-технологии информация  место нахождении находится СОМ-сервера находится где?В реестре виндовс
3. Если приложение  использует СОМ-сервер реализованный в виде DLL то это позволяет?Быстро подменять DLL на новую версию чтобы изменения быстро вступили в силу чтобы проверить как работает.Параллельную разрабтку разных компонент
4. Если приложение  использует СОМ-сервер реализованный в виде EXE то это позволяет?каждому приложению не таскать с собой DLL , обращаться к нему по имени и к одному и томуже объекту из разных мест и разных сред.Использвать ООПшный шаблон-подход фабрику.
5. В СОМ-технологии для облегчения корректного взаимодействия многопоточного клиента  и однопоточного сервера используют?Межпотоковую синхронизацию